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

clarify failed balance assertion message

Browse Source
This commit is contained in:
Simon Michael 2014-07-15 06:55:46 -07:00
parent b42298c1e2
commit 19d42f8c99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -445,7 +445,7 @@ checkBalanceAssertion (errs,startbal) ps
let c = maybe "" acommodity $ headMay $ amounts assertedbal let c = maybe "" acommodity $ headMay $ amounts assertedbal
in filterMixedAmount (\a -> acommodity a == c) fullbal in filterMixedAmount (\a -> acommodity a == c) fullbal
bal = singlebal -- check single-commodity balance like Ledger; maybe add == FULLBAL later bal = singlebal -- check single-commodity balance like Ledger; maybe add == FULLBAL later
err = printf "Balance assertion failed for account %s on %s\n%sAfter posting:\n %s\nexpected commodity balance is %s, actual balance was %s." err = printf "Balance assertion failed for account %s on %s\n%sAfter posting:\n %s\nexpected commodity balance is %s, calculated balance was %s."
(paccount p) (paccount p)
(show $ postingDate p) (show $ postingDate p)
(maybe "" (("In transaction:\n"++).show) $ ptransaction p) (maybe "" (("In transaction:\n"++).show) $ ptransaction p)