;run: missed a spot for replaceNumericFlags
This commit is contained in:
parent
e67bef1b0c
commit
a7116a8b0f
@ -109,7 +109,7 @@ runCommand defaultJrnl findBuiltinCommand cmdline = do
|
|||||||
let cmdaction' = if cmdname == "run" then run findBuiltinCommand else cmdaction
|
let cmdaction' = if cmdname == "run" then run findBuiltinCommand else cmdaction
|
||||||
-- Even though expandArgsAt is done by the Cli.hs, it stops at the first '--', so we need
|
-- Even though expandArgsAt is done by the Cli.hs, it stops at the first '--', so we need
|
||||||
-- to do it here as well to make sure that each command can use @ARGFILEs
|
-- to do it here as well to make sure that each command can use @ARGFILEs
|
||||||
args' <- expandArgsAt args
|
args' <- replaceNumericFlags <$> expandArgsAt args
|
||||||
dbg1IO "runCommand final args" (cmdname,args')
|
dbg1IO "runCommand final args" (cmdname,args')
|
||||||
opts <- getHledgerCliOpts' cmdmode args'
|
opts <- getHledgerCliOpts' cmdmode args'
|
||||||
withJournalCached defaultJrnl opts (cmdaction' opts)
|
withJournalCached defaultJrnl opts (cmdaction' opts)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user