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

fix: cli: ensureDebugFlagHasVal: fix multiple --debug flags not just one

Browse Source
This commit is contained in:
Simon Michael 2024-06-24 14:24:30 +01:00
parent 66f4091b38
commit 361b0016ff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/CliOptions.hs
View File

@ -577,7 +577,7 @@ replaceNumericFlags = map replace
-- This makes an equals sign unnecessary with this optional-value flag. -- This makes an equals sign unnecessary with this optional-value flag.
ensureDebugFlagHasVal :: [String] -> [String] ensureDebugFlagHasVal :: [String] -> [String]
ensureDebugFlagHasVal as = case break (=="--debug") as of ensureDebugFlagHasVal as = case break (=="--debug") as of
(bs,"--debug":c:cs) | null c || not (all isDigit c) -> bs++"--debug=1":c:cs (bs,"--debug":c:cs) | null c || not (all isDigit c) -> bs++"--debug=1" : ensureDebugFlagHasVal (c:cs)
(bs,["--debug"]) -> bs++["--debug=1"] (bs,["--debug"]) -> bs++["--debug=1"]
_ -> as _ -> as