slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

;bin: script-example: cleanup

Browse Source
This commit is contained in:
Simon Michael 2025-02-01 13:54:57 -10:00
parent 39f3b2c7ba
commit 57efcfb79a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
bin/hledger-script-example.hs
View File

@ -62,13 +62,16 @@ cmdmode = hledgerCommandMode (unlines
[] [generalflagsgroup1] [] ([], Just $ argsFlag "[ARGS]") [] [generalflagsgroup1] [] ([], Just $ argsFlag "[ARGS]")
-- Most scripts have three steps: -- Most scripts have three steps:
-- 1. process command line options/arguments
-- 2. read the journal file
-- 3. do something with it.
main = do main = do
-- 1. process command line options/arguments
opts@CliOpts{reportspec_=rspec} <- getHledgerCliOpts cmdmode opts@CliOpts{reportspec_=rspec} <- getHledgerCliOpts cmdmode
-- 2. read the journal file
withJournalDo opts $ \j -> do withJournalDo opts $ \j -> do
putStrLn "hello"
-- 3. do something with it.
putStrLn $ (show $ length $ jtxns j) <> " transactions in " <> (show $ journalFilePath j)