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

formatting

master
Abhinav Sarkar 2016-04-19 23:38:24 +05:30
parent 08864aec2f
commit 248672bdb2
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,7 @@ evalParser :: Parser a b -> a -> Maybe b
evalParser p i = fst <$> runParser p i
instance Functor (Parser i) where
fmap f (Parser p) = Parser $ \i -> fmap (\(o, i') -> (f o, i')) $ p i
fmap f (Parser p) = Parser $ fmap (\(o, i') -> (f o, i')) . p
instance Applicative (Parser i) where
pure x = Parser $ \i -> Just (x, i)