slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 otherwise -> 9999
{- {-
interactive testing: interactive testing in ghci:
*Main> p <- ledgerFilePath [File "./test.dat"] >>= parseLedgerFile p <- ledgerFilePath [File "./test.ledger"] >>= parseLedgerFile
*Main> let r = either (\_ -> LedgerFile [] [] []) id p let r = either (\_ -> LedgerFile [] [] [] "") id p
*Main> let l = cacheLedger r let l = cacheLedger (argpats [] []) r
*Main> let ant = accountnametree l let ant = accountnametree l
*Main> let at = accounts l let at = accounts l
*Main> putStr $ drawTree $ treemap show $ ant putStr $ drawTree $ treemap show $ ant
*Main> putStr $ showLedgerAccounts l [] False 1 putStr $ showLedgerAccounts l 1
*Main> :m +Tests :m +Tests
*Main Tests> l7 l7
-} -}