Skip to content

Instantly share code, notes, and snippets.

@denisshevchenko

denisshevchenko/p.hs

Created July 1, 2014 10:26
Show Gist options
  • Save denisshevchenko/226143377c3244d96329 to your computer and use it in GitHub Desktop.
Save denisshevchenko/226143377c3244d96329 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
p.hs
(<|>) :: Parser a -> Parser a -> Parser a
parser1 <|> parser2 = P $ \some -> case parse parser1 some of
[] -> parse parser2 some
result -> result
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment