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

lib: journal: fix wrong txn rendering in balance assertion errors

Browse Source
This commit is contained in:
Simon Michael 2018-10-06 09:16:53 -10:00
parent 3dbf97babd
commit 2ba135e402
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

@ -552,7 +552,7 @@ checkBalanceAssertion p@Posting{ pbalanceassertion = Just (ass,_)} amt
(case ptransaction p of (case ptransaction p of
Nothing -> ":" -- shouldn't happen Nothing -> ":" -- shouldn't happen
Just t -> printf " in %s:\nin transaction:\n%s" 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) where pos = snd $ fromJust $ pbalanceassertion p)
(showPostingLine p) (showPostingLine p)
(showDate $ postingDate p) (showDate $ postingDate p)