diff --git a/Ledger/LedgerTransaction.hs b/Ledger/LedgerTransaction.hs index 802a83893..8b242c5d4 100644 --- a/Ledger/LedgerTransaction.hs +++ b/Ledger/LedgerTransaction.hs @@ -14,7 +14,7 @@ import Ledger.Posting import Ledger.Amount -instance Show LedgerTransaction where show = showLedgerTransaction +instance Show LedgerTransaction where show = showLedgerTransactionUnelided instance Show ModifierTransaction where show t = "= " ++ mtvalueexpr t ++ "\n" ++ unlines (map show (mtpostings t))