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

lib: show txn's file position in assertion errors

Browse Source
This commit is contained in:
Simon Michael 2016-02-19 22:46:59 -08:00
parent 92d5b0ab3d
commit c9937db10e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Data/Journal.hs
View File

@ -494,7 +494,11 @@ checkBalanceAssertion (errs,startbal) ps
(showMixedAmount finalsinglebal) (showMixedAmount finalsinglebal)
(diffplus ++ showMixedAmount diff) (diffplus ++ showMixedAmount diff)
(showPostingLine p) (showPostingLine p)
(maybe "" (("in transaction:\n"++).show) $ ptransaction p) (case ptransaction p of
Nothing -> ""
Just t -> printf "in transaction at %s line %d:\n%s" f l (show t)
where GenericSourcePos f l _ = tsourcepos t
)
-- Given a sequence of postings to a single account, split it into -- Given a sequence of postings to a single account, split it into
-- sub-sequences consisting of ordinary postings followed by a single -- sub-sequences consisting of ordinary postings followed by a single