From 72e94f4d804f915a50bb792c43d694bffb0a514f Mon Sep 17 00:00:00 2001 From: ShrykeWindgrace Date: Fri, 22 Oct 2021 12:09:41 +0200 Subject: [PATCH] ; imp: use megaparsec's prettyprinter for assertion parse errors --- bin/hledger-check-fancyassertions.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/hledger-check-fancyassertions.hs b/bin/hledger-check-fancyassertions.hs index cea35b1da..3c8f726cc 100755 --- a/bin/hledger-check-fancyassertions.hs +++ b/bin/hledger-check-fancyassertions.hs @@ -420,7 +420,7 @@ args = info (helper <*> parser) $ mconcat parsed <- P.runParserT (runStateT p H.nulljournal) "" s case parsed of Right (a, _) -> pure (s, a) - Left err -> fail ("failed to parse input '" ++ unpack s ++ "': " ++ show err) + Left err -> fail ("failed to parse input '" ++ unpack s ++ "': " ++ P.errorBundlePretty err) readParsec' :: H.SimpleTextParser a -> ReadM (String, a) readParsec' p = do @@ -428,7 +428,7 @@ args = info (helper <*> parser) $ mconcat let parsed = runIdentity $ P.runParserT p "" (pack s) case parsed of Right a -> pure (s, a) - Left err -> fail ("failed to parse input '" ++ s ++ "': " ++ show err) + Left err -> fail ("failed to parse input '" ++ s ++ "': " ++ P.errorBundlePretty err) -------------------------------------------------------------------------------