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

parsing: fix wrong parse error locations within postings

Browse Source
This commit is contained in:
Simon Michael 2010-07-08 02:51:17 +00:00
parent 3e9ad0ae13
commit 63de5e0127
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-lib/Hledger/Read/Journal.hs
View File

@ -384,10 +384,13 @@ ledgerpostings = do
-- complicated to handle intermixed comment lines.. please make me better. -- complicated to handle intermixed comment lines.. please make me better.
ctx <- getState ctx <- getState
let parses p = isRight . parseWithCtx ctx p let parses p = isRight . parseWithCtx ctx p
-- parse the following non-comment whitespace-beginning lines as postings
-- make sure the sub-parse starts from the current position, for useful errors
pos <- getPosition
ls <- many1 $ try linebeginningwithspaces ls <- many1 $ try linebeginningwithspaces
let ls' = filter (not . (ledgercommentline `parses`)) ls let ls' = filter (not . (ledgercommentline `parses`)) ls
when (null ls') $ fail "no postings" when (null ls') $ fail "no postings"
return $ map (fromparse . parseWithCtx ctx ledgerposting) ls' return $ map (fromparse . parseWithCtx ctx (setPosition pos >> ledgerposting)) ls'
<?> "postings" <?> "postings"
linebeginningwithspaces :: GenParser Char st String linebeginningwithspaces :: GenParser Char st String