From 34b17f41bff0b7268b5d9392f6c19e0054d353a6 Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Mon, 16 Jan 2017 23:43:00 +0100 Subject: [PATCH] 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 }))) --- src/Text/Parsing/Parser.purs | 2 +- src/Text/Parsing/Parser/Pos.purs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Parsing/Parser.purs b/src/Text/Parsing/Parser.purs index 6aaa55b..fac3592 100644 --- 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 index 3336c7a..e65c6f2 100644 --- 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