Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data ParseResult parseResult = MkParseResult (Either String (String, parseResult))
- (>>=) : MkParseResult a -> ((String, a) -> MkParseResult b) -> MkParseResult b
- (MkParseResult l@(Left s)) >>= f = l
- (MkParseResult (Right t@(s, e))) >>= f = f t
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement