17 lines
469 B
Haskell
Executable File
17 lines
469 B
Haskell
Executable File
#!/usr/bin/env runhaskell
|
|
-- Show all account names used in the default journal.
|
|
|
|
import Hledger
|
|
import Hledger.Cli (getCliOpts, mainmode, withJournalDo)
|
|
|
|
main = do
|
|
-- simple way to read ~/.hledger.journal or $LEDGER_FILE
|
|
-- j <- defaultJournal
|
|
|
|
-- but we'd better handle -f as well:
|
|
opts <- getCliOpts $ mainmode []
|
|
withJournalDo opts $ \_opts j -> do
|
|
|
|
-- query the journal for all account names and print each one
|
|
mapM_ putStrLn $ journalAccountNames j
|