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

4
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 :: Char -> Maybe Digit
charToDigit c = 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 String Digit
digitParser = Parser $ \i -> case i of digitParser = Parser $ \i -> case i of
@ -49,7 +49,7 @@ digitParser = Parser $ \i -> case i of
digitsParser :: Parser String [Digit] digitsParser :: Parser String [Digit]
digitsParser = Parser $ \i -> case runParser digitParser i of digitsParser = Parser $ \i -> case runParser digitParser i of
Nothing -> Nothing Nothing -> Nothing
Just (d, i') -> case runParser digitsParser i' of Just (d, i') -> case runParser digitsParser i' of
Nothing -> Just ([d], i') Nothing -> Just ([d], i')
Just (ds, i'') -> Just (d:ds, i'') Just (ds, i'') -> Just (d:ds, i'')