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

comment

Browse Source
This commit is contained in:
Simon Michael 2007-03-11 00:56:03 +00:00
parent de4dd43007
commit 69d67820eb
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger.hs
View File

@ -96,3 +96,10 @@ printBalance opts args ledger = do
otherwise -> 9999
-- interactive testing:
--
-- p <- getLedgerFilePath [] >>= parseLedgerFile
-- let l = either (\_ -> Ledger [] [] []) id p
-- let ant = ledgerAccountNameTree l
-- let at = ledgerAccountTreeMatching l [] True 999
-- putStr $ drawTree $ treemap show $ ledgerAccountTreeMatching l ["a"] False 999