From 19d42f8c99b6158382aaf2ca4cf5a63dfb4a8220 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 15 Jul 2014 06:55:46 -0700 Subject: [PATCH] clarify failed balance assertion message --- hledger-lib/Hledger/Data/Journal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs index 14696693e..17c0b9ce3 100644 --- a/hledger-lib/Hledger/Data/Journal.hs +++ b/hledger-lib/Hledger/Data/Journal.hs @@ -445,7 +445,7 @@ checkBalanceAssertion (errs,startbal) ps let c = maybe "" acommodity $ headMay $ amounts assertedbal in filterMixedAmount (\a -> acommodity a == c) fullbal 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) (show $ postingDate p) (maybe "" (("In transaction:\n"++).show) $ ptransaction p)