- toString ParseError = "General parse error"
- toString (LexError e) = "Lexer error: " +++ e
- toString (Unexpected e (l,c)) = "Unexpected " +++ e +++ " at "
- +++ (toString l) +++ ":" +++ (toString c)
+ toString (PositionalError l c e) =
+ concat [toString l,":",toString c,": ",e, "\n"]
+ toString (Error e) = concat ["-:-: ", e, "\n"]