abhin4v
/
haskell-classes
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor changes

master
Abhinav Sarkar 2016-04-19 23:41:32 +05:30
parent 248672bdb2
commit 0071c7d718
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2016-04-19/parser.hs
View File

@ -39,7 +39,7 @@ newtype Digit = Digit { getIntOfDigit :: Int } deriving (Show, Eq, Ord)
charToDigit :: Char -> Maybe Digit
charToDigit c =
if Char.isDigit c then Just $ Digit (Char.digitToInt c) else Nothing
if Char.isDigit c then Just . Digit . Char.digitToInt $ c else Nothing
digitParser :: Parser String Digit
digitParser = Parser $ \i -> case i of