From d2feaf6f97b6c2d2d559cde1652cf85d4c46956c Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 12 Oct 2024 13:35:15 -1000 Subject: [PATCH] imp: cli: a little less flag-moving debug output --- hledger/Hledger/Cli.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger/Hledger/Cli.hs b/hledger/Hledger/Cli.hs index cbc4e9f22..99e5da56e 100644 --- a/hledger/Hledger/Cli.hs +++ b/hledger/Hledger/Cli.hs @@ -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,