slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

; imp: use megaparsec's prettyprinter for assertion parse errors

Browse Source
This commit is contained in:
ShrykeWindgrace 2021-10-22 12:09:41 +02:00 committed by Simon Michael
parent 4b1919de02
commit 72e94f4d80
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
bin/hledger-check-fancyassertions.hs
View File

@ -420,7 +420,7 @@ args = info (helper <*> parser) $ mconcat
parsed <- P.runParserT (runStateT p H.nulljournal) "" s parsed <- P.runParserT (runStateT p H.nulljournal) "" s
case parsed of case parsed of
Right (a, _) -> pure (s, a) 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' :: H.SimpleTextParser a -> ReadM (String, a)
readParsec' p = do readParsec' p = do
@ -428,7 +428,7 @@ args = info (helper <*> parser) $ mconcat
let parsed = runIdentity $ P.runParserT p "" (pack s) let parsed = runIdentity $ P.runParserT p "" (pack s)
case parsed of case parsed of
Right a -> pure (s, a) 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)
------------------------------------------------------------------------------- -------------------------------------------------------------------------------