slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 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