hledger/extra/accountnames.hs

#!/usr/bin/env runhaskell
-- list the default journal's chart of accounts in --flat style
import Hledger
main = do
  j <- myJournal
  let l = journalToLedger nullfilterspec{empty=True} j
  mapM_ putStrLn (accountnames l)
start a scripts directory for user scripting examples 2011-05-27 02:58:55 +04:00			`#!/usr/bin/env runhaskell`
			`-- list the default journal's chart of accounts in --flat style`
imports, api cleanup 2011-05-28 08:11:44 +04:00			`import Hledger`
start a scripts directory for user scripting examples 2011-05-27 02:58:55 +04:00			`main = do`
			`j <- myJournal`
			`let l = journalToLedger nullfilterspec{empty=True} j`
			`mapM_ putStrLn (accountnames l)`