Parented ParseError instance.

Author: joneshf

src/Text/Parsing/Parser.purs

@@ -27,6 +27,9 @@ instance errorParseError :: Error ParseError where
   noMsg = ParseError { message: "" }
   strMsg msg = ParseError { message: msg }
 
+instance showParseError :: Show ParseError where
+  show (ParseError msg) = "ParseError { message: " ++ msg.message ++ " }"
+
 newtype ParserT s m a = ParserT (s -> m { input :: s, result :: Either ParseError a, consumed :: Boolean })
 
 unParserT :: forall m s a. ParserT s m a -> s -> m { input :: s, result :: Either ParseError a, consumed :: Boolean }

src/Text/Parsing/Parser/Combinators.purs

@@ -120,9 +120,6 @@ lookAhead (ParserT p) = ParserT \s -> do
   state <- p s
   return state{input = s, consumed = false}
 
-instance showParseError :: Show ParseError where
-  show (ParseError msg) = msg.message
-
 manyTill :: forall s a m e. (Monad m) => ParserT s m a -> ParserT s m e -> ParserT s m [a]
 manyTill p end = scan
   where