From 2ba135e40200df34c86950319f7e883f79f68a57 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 6 Oct 2018 09:16:53 -1000 Subject: [PATCH] lib: journal: fix wrong txn rendering in balance assertion errors --- 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 bf6986f14..9969d28af 100644 --- a/hledger-lib/Hledger/Data/Journal.hs +++ b/hledger-lib/Hledger/Data/Journal.hs @@ -552,7 +552,7 @@ checkBalanceAssertion p@Posting{ pbalanceassertion = Just (ass,_)} amt (case ptransaction p of Nothing -> ":" -- shouldn't happen Just t -> printf " in %s:\nin transaction:\n%s" - (showGenericSourcePos pos) (chomp $ show t) :: String + (showGenericSourcePos pos) (chomp $ showTransaction t) :: String where pos = snd $ fromJust $ pbalanceassertion p) (showPostingLine p) (showDate $ postingDate p)