
23 Feb
2012
23 Feb
'12
8:22 p.m.
On Thu, Feb 23, 2012 at 02:51:57PM -0500, Brent Yorgey wrote:
failureContext :: String -> Parser a -> Parser a failureContext branch p = Parser (\f s -> runParser p (f . (++(branch ++ ": "))) s)
Whoops, of course that should be ((branch ++ ": ") ++) instead of (++ (branch ++ ": ")) to put the branch tag on the beginning instead of the end of the message. -Brent