make unelided transaction printing the default

This commit is contained in:
Simon Michael 2009-12-03 20:54:56 +00:00
parent 7c42280d4e
commit dee5b1ca39

View File

@ -14,7 +14,7 @@ import Ledger.Posting
import Ledger.Amount import Ledger.Amount
instance Show LedgerTransaction where show = showLedgerTransaction instance Show LedgerTransaction where show = showLedgerTransactionUnelided
instance Show ModifierTransaction where instance Show ModifierTransaction where
show t = "= " ++ mtvalueexpr t ++ "\n" ++ unlines (map show (mtpostings t)) show t = "= " ++ mtvalueexpr t ++ "\n" ++ unlines (map show (mtpostings t))