Merge pull request #46 from mlang/showParseError

Fix Show instance for ParseError
purescript-contrib · Jan 16, 2017 · 2511d02 · 2511d02
2 parents 5ffbcf1 + 34b17f4
commit 2511d02
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Text/Parsing/Parser.purs b/src/Text/Parsing/Parser.purs
@@ -37,7 +37,7 @@ parseErrorPosition (ParseError _ pos) = pos
 
 instance showParseError :: Show ParseError where
   show (ParseError msg pos) =
-    "(ParseError " <> show msg <> show pos <> ")"
+    "(ParseError " <> show msg <> " " <> show pos <> ")"
 
 derive instance eqParseError :: Eq ParseError
 derive instance ordParseError :: Ord ParseError

diff --git a/src/Text/Parsing/Parser/Pos.purs b/src/Text/Parsing/Parser/Pos.purs
@@ -16,7 +16,7 @@ newtype Position = Position
 
 instance showPosition :: Show Position where
   show (Position { line: line, column: column }) =
-    "Position { line: " <> show line <> ", column: " <> show column <> " }"
+    "(Position { line: " <> show line <> ", column: " <> show column <> " })"
 
 derive instance eqPosition :: Eq Position
 derive instance ordPosition :: Ord Position