simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-16 16:57:38 +03:00
Code Issues Projects Releases Wiki Activity

update ghci examples

Browse Source
This commit is contained in:
Simon Michael 2008-06-28 04:44:56 +00:00
parent 8dcc90ff58
commit d795c0bac8
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hledger.hs
View File

@ -69,16 +69,16 @@ balance opts pats = do
otherwise -> 9999
{-
interactive testing:
interactive testing in ghci:
*Main> p <- ledgerFilePath [File "./test.dat"] >>= parseLedgerFile
*Main> let r = either (\_ -> LedgerFile [] [] []) id p
*Main> let l = cacheLedger r
*Main> let ant = accountnametree l
*Main> let at = accounts l
*Main> putStr $ drawTree $ treemap show $ ant
*Main> putStr $ showLedgerAccounts l [] False 1
*Main> :m +Tests
*Main Tests> l7
p <- ledgerFilePath [File "./test.ledger"] >>= parseLedgerFile
let r = either (\_ -> LedgerFile [] [] [] "") id p
let l = cacheLedger (argpats [] []) r
let ant = accountnametree l
let at = accounts l
putStr $ drawTree $ treemap show $ ant
putStr $ showLedgerAccounts l 1
:m +Tests
l7
-}