simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 07:09:28 +03:00
Code Issues 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)
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)
show l = printf "Ledger with %d entries"
((length $ entries l) +
(length $ modifier_entries l) +
(length $ periodic_entries l))
ledgerTransactions :: Ledger -> [EntryTransaction]
ledgerTransactions l = entryTransactionsFrom $ entries l