lib: journal: fix wrong txn rendering in balance assertion errors
This commit is contained in:
parent
3dbf97babd
commit
2ba135e402
@ -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)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user