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

dev:import: improve buggy detection of import command

Browse Source
This commit is contained in:
Simon Michael 2025-08-24 09:25:53 +01:00
parent c515fedf70
commit c60ec90756
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Read/RulesReader.hs
View File

@ -157,8 +157,10 @@ parse iopts rulesfile h = do
let let
-- XXX How can we know when the command is import, and if it's a dry run ? In a hacky way, currently. -- XXX How can we know when the command is import, and if it's a dry run ? In a hacky way, currently.
args = progArgs args = progArgs
cmd = headDef "" $ dropWhile ((=="-").take 1) args -- XXX Difficult to identify the command name reliably here,
cmdisimport = dbg7 "cmdisimport" $ cmd `elem` ["import", "imp"] -- Cli.hs's moveFlagsAfterCommand would help but is not importable here.
-- Just look for import or imp appearing anywhere in the arguments.
cmdisimport = dbg7 "cmdisimport" $ any (`elem` args) ["import", "imp"]
dryrun = dbg7 "dryrun" $ any (`elem` args) ["--dry-run", "--dry"] dryrun = dbg7 "dryrun" $ any (`elem` args) ["--dry-run", "--dry"]
importing = dbg7 "importing" $ cmdisimport && not dryrun importing = dbg7 "importing" $ cmdisimport && not dryrun
archive = dbg7 "archive" $ isJust (getDirective "archive" rules) archive = dbg7 "archive" $ isJust (getDirective "archive" rules)