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

more informative show output

Browse Source
This commit is contained in:
Simon Michael 2008-10-09 12:59:05 +00:00
parent 165945cf20
commit b3ba124ce9
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Ledger/Ledger.hs
View File

@ -37,11 +37,14 @@ import Ledger.Entry
instance Show Ledger where instance Show Ledger where
show l = printf "Ledger with %d entries, %d accounts" show l = printf "Ledger with %d entries, %d accounts: %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)
++ "\n" ++ (showtree $ accountnametree l)
++ "\n" ++ (showtree $ filteredaccountnametree 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

3
Ledger/Utils.hs
View File

@ -109,6 +109,9 @@ treeany f t = (f $ root t) || (any (treeany f) $ branches t)
-- treedrop -- remove the leaves which do fulfill predicate. -- treedrop -- remove the leaves which do fulfill predicate.
-- treedropall -- do this repeatedly. -- treedropall -- do this repeatedly.
showtree :: Show a => Tree a -> String
showtree = drawTree . treemap show
-- debugging -- debugging
strace a = trace (show a) a -- trace a showable expression strace a = trace (show a) a -- trace a showable expression