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

simpler Ledger show

Browse Source
This commit is contained in:
Simon Michael 2007-03-12 01:56:06 +00:00
parent d3c286d8b7
commit 987659e3d4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Ledger.hs
View File

@ -16,10 +16,10 @@ data Ledger = Ledger {
} deriving (Eq) } deriving (Eq)
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 entries"
(length $ entries l) ((length $ entries l) +
(length $ modifier_entries l) (length $ modifier_entries l) +
(length $ periodic_entries l) (length $ periodic_entries l))
ledgerTransactions :: Ledger -> [EntryTransaction] ledgerTransactions :: Ledger -> [EntryTransaction]
ledgerTransactions l = entryTransactionsFrom $ entries l ledgerTransactions l = entryTransactionsFrom $ entries l