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

clarify balance assertion error slightly

Browse Source
This commit is contained in:
Simon Michael 2014-04-16 14:45:41 -07:00
parent f0167013ce
commit 01e5a2245d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -435,10 +435,10 @@ checkBalanceAssertion (errs,bal) ps
assertion = pbalanceassertion p assertion = pbalanceassertion p
Just assertedbal = assertion Just assertedbal = assertion
bal' = sum $ [bal] ++ map pamount ps bal' = sum $ [bal] ++ map pamount ps
err = printf "Balance assertion failed for account %s on %s\n%safter\n %s\nexpected balance is %s, actual balance was %s." err = printf "Balance assertion failed for account %s on %s\n%sAfter posting:\n %s\nexpected balance is %s, actual balance was %s."
(paccount p) (paccount p)
(show $ postingDate p) (show $ postingDate p)
(maybe "" (("In\n"++).show) $ ptransaction p) (maybe "" (("In transaction:\n"++).show) $ ptransaction p)
(show p) (show p)
(showMixedAmount assertedbal) (showMixedAmount assertedbal)
(showMixedAmount bal') (showMixedAmount bal')