(+>) :: AppendParseResult a => ABC.Parser a -> ABC.Parser a -> ABC.Parser a
p +> q = p >>= \ a -> appendPR a <$> (p **> q)
(+>) :: AppendParseResult a => ABC.Parser a -> ABC.Parser a -> ABC.Parser a
p +> q = p >>= \ a -> appendPR a <$> (p **> q)
p +> q = p >>= \ a -> appendPR a <$> (p **> q)