comment

2007-03-11 00:56:03 +00:00 · 2007-03-11 00:56:03 +00:00 · 69d67820eb
commit 69d67820eb
parent de4dd43007
1 changed files with 7 additions and 0 deletions
--- a/hledger.hs
+++ b/hledger.hs
@ -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