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

fix ledger show

Browse Source
This commit is contained in:
Simon Michael 2007-03-10 07:45:58 +00:00
parent 8236f3f988
commit e5fc135707
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Ledger.hs
View File

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