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

slightly less verbose Show Ledger

Browse Source
This commit is contained in:
Simon Michael 2008-10-12 09:16:04 +00:00
parent 01cd388c24
commit a9f021eebe
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Ledger/Ledger.hs
View File

@ -25,13 +25,12 @@ ledgertests = TestList [
] ]
instance Show Ledger where instance Show Ledger where
show l = printf "Ledger with %d entries, %d accounts: %s" show l = printf "Ledger with %d entries, %d accounts\n%s"
((length $ entries $ rawledger l) + ((length $ entries $ rawledger l) +
(length $ modifier_entries $ rawledger l) + (length $ modifier_entries $ rawledger l) +
(length $ periodic_entries $ rawledger l)) (length $ periodic_entries $ rawledger l))
(length $ accountnames l) (length $ accountnames l)
(show $ accountnames l) (showtree $ accountnametree l)
++ "\n" ++ (showtree $ accountnametree l)
-- | Convert a raw ledger to a more efficient cached type, described above. -- | Convert a raw ledger to a more efficient cached type, described above.
cacheLedger :: RawLedger -> Ledger cacheLedger :: RawLedger -> Ledger