denisshevchenko · July 1, 2014 10:26
diff --git a/p.hs b/p.hs
 (<|>) :: Parser a -> Parser a -> Parser a
 parser1 <|> parser2 = P $ \some -> case parse parser1 some of
                                       []     -> parse parser2 some
                                       result -> result
	(<\|>) :: Parser a -> Parser a -> Parser a
	parser1 <\|> parser2 = P $ \some -> case parse parser1 some of
	[] -> parse parser2 some
	result -> result