Unify error reporting

1 files changed, 8 insertions, 2 deletions

diff --git a/src/Error.hs b/src/Error.hs
index 96b02dc..f61cea2 100644
--- a/src/Error.hs
+++ b/src/Error.hs
@@ -1,13 +1,19 @@
 module Error where
 
 import Data.List (sort)
-import Text.Parsec (SourcePos)
+import Text.Parsec (SourcePos, errorPos)
+import Text.Parsec.Error (ParseError, errorMessages, showErrorMessages)
 
 data Error = Error String SourcePos deriving (Eq)
 
 instance Show Error where
   show (Error message pos) =
-    "error: " ++ show pos ++ ":\n" ++ message
+    show pos ++ " error: " ++ message
+
+showParserError :: ParseError -> String
+showParserError error =
+  show (errorPos error) ++ " error: syntax error"
+    ++ showErrorMessages "or" "unknown parser error" "   expecting" "  unexpected" "end of input" (errorMessages error)
 
 instance Ord Error where
   compare (Error _ pos1) (Error _ pos2) = compare pos1 pos2