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

imp: expose config file args to getArgs; make --no-pager work there

Browse Source
This commit is contained in:
Simon Michael 2024-10-17 23:42:53 -10:00
parent 3e48451c3f
commit 66df5ed40f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger/Hledger/Cli.hs
View File

@ -338,7 +338,12 @@ main = withGhcDebug' $ do
manFlag = boolopt "man" rawopts manFlag = boolopt "man" rawopts
versionFlag = boolopt "version" rawopts versionFlag = boolopt "version" rawopts
if -- Ensure that anything calling getArgs later will see all args, including config file args.
-- Some things (--color, --debug, some checks in journalFinalise) are detected by unsafePerformIO,
-- eg in Hledger.Utils.IO.progArgs, which means they aren't be seen in a config file
-- (because many things before this point have forced the one-time evaluation of progArgs).
withArgs (progname:finalargs) $
if
-- 6.1. no command and a help/doc flag found - show general help/docs -- 6.1. no command and a help/doc flag found - show general help/docs
| nocmdprovided && helpFlag -> pager $ showModeUsage (mainmode []) ++ "\n" | nocmdprovided && helpFlag -> pager $ showModeUsage (mainmode []) ++ "\n"
| nocmdprovided && tldrFlag -> runTldrForPage "hledger" | nocmdprovided && tldrFlag -> runTldrForPage "hledger"