Fix Show instance for ParseError

Before: (Left (ParseError "Expecting octave mark"Position { line: 1, column: 1 })) After: (Left (ParseError "Expecting octave mark" (Position { line: 1, column: 1 })))
purescript-contrib · Jan 16, 2017 · 34b17f4 · 34b17f4
1 parent 5ffbcf1
commit 34b17f4
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