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

make fromparse utility show the parse error

Browse Source
This commit is contained in:
Simon Michael 2008-12-08 17:15:02 +00:00
parent 59c9dde458
commit da70e00e3b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger/Utils.hs
View File

@ -208,7 +208,7 @@ parsewith :: Parser a -> String -> Either ParseError a
parsewith p ts = parse p "" ts parsewith p ts = parse p "" ts
fromparse :: Either ParseError a -> a fromparse :: Either ParseError a -> a
fromparse = either (\_ -> error "parse error") id fromparse = either (\e -> error $ "ledger parse error at "++(show e)) id
nonspace :: GenParser Char st Char nonspace :: GenParser Char st Char
nonspace = satisfy (not . isSpace) nonspace = satisfy (not . isSpace)