formatting
parent
08864aec2f
commit
248672bdb2
|
@ -9,7 +9,7 @@ evalParser :: Parser a b -> a -> Maybe b
|
||||||
evalParser p i = fst <$> runParser p i
|
evalParser p i = fst <$> runParser p i
|
||||||
|
|
||||||
instance Functor (Parser i) where
|
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
|
instance Applicative (Parser i) where
|
||||||
pure x = Parser $ \i -> Just (x, i)
|
pure x = Parser $ \i -> Just (x, i)
|
||||||
|
|
Loading…
Reference in New Issue