fix ledger show

This commit is contained in:
Simon Michael 2007-03-10 07:45:58 +00:00
parent 8236f3f988
commit e5fc135707

View File

@ -17,9 +17,9 @@ data Ledger = Ledger {
instance Show Ledger where
show l = printf "Ledger with %d normal, %d modifier, %d periodic entries"
(length $ entries l)
(length $ modifier_entries l)
(length $ periodic_entries l)
(length $ entries l)
ledgerTransactions :: Ledger -> [EntryTransaction]
ledgerTransactions l = entryTransactionsFrom $ entries l