simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-28 12:54:07 +03:00
Code Issues Projects Releases Wiki Activity

imp: cli: a little less flag-moving debug output

Browse Source
This commit is contained in:
Simon Michael 2024-10-12 13:35:15 -10:00
parent e2599e85a4
commit d2feaf6f97
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli.hs
View File

@ -498,12 +498,12 @@ moveFlagsAfterCommand args =
case isMovableFlagArg a (Just b) of
2 -> traceOrLogAt lvl ("moving 2: "<>a<>" "<>b) $ moveFlagAndVal (cs, moved++[a,b])
1 -> traceOrLogAt lvl ("moving 1: "<>a) $ moveFlagAndVal (b:cs, moved++[a])
_ -> traceOrLogAt lvl ("found unmovable: "<>a) (a:b:cs, moved)
_ -> (a:b:cs, moved)
moveFlagAndVal ([a], moved) =
case isMovableFlagArg a Nothing of
1 -> traceOrLogAt lvl ("moving 1: "<>a) ([], moved++[a])
_ -> traceOrLogAt lvl ("found unmovable: "<>a) ([a], moved)
moveFlagAndVal ([], moved) = ptraceOrLogAt lvl "moved all" ([], moved)
_ -> ([a], moved)
moveFlagAndVal ([], moved) = ([], moved)
lvl = 8
-- Is this a short or long flag argument that should be moved,