From 18f5c8aa24f96465094d6f7e14a09b8a85ae1f99 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 20 Sep 2025 05:52:52 -0700 Subject: [PATCH] imp:accounts: sort options a little --- hledger/Hledger/Cli/Commands/Accounts.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Accounts.hs b/hledger/Hledger/Cli/Commands/Accounts.hs index 5c8906698..3e97a93f4 100644 --- a/hledger/Hledger/Cli/Commands/Accounts.hs +++ b/hledger/Hledger/Cli/Commands/Accounts.hs @@ -42,9 +42,9 @@ accountsmode = hledgerCommandMode ,flagNone ["unused"] (setboolopt "unused") "list accounts declared but not used" ,flagNone ["find"] (setboolopt "find") "list the first account matched by the first argument (a case-insensitive infix regexp)" - ,flagNone ["types"] (setboolopt "types") "also show account types when known" - ,flagNone ["positions"] (setboolopt "positions") "also show where accounts were declared" ,flagNone ["directives"] (setboolopt "directives") "show as account directives, for use in journals" + ,flagNone ["positions"] (setboolopt "positions") "also show where accounts were declared" + ,flagNone ["types"] (setboolopt "types") "also show account types when known" ] ++ flattreeflags False ++ [flagReq ["drop"] (\s opts -> Right $ setopt "drop" s opts) "N" "flat mode: omit N leading account name parts"] @@ -59,9 +59,9 @@ accounts opts@CliOpts{rawopts_=rawopts, reportspec_=ReportSpec{_rsQuery=query,_r -- 1. identify the accounts we'll show let tree = tree_ ropts - types = boolopt "types" rawopts - positions = boolopt "positions" rawopts directives = boolopt "directives" rawopts + positions = boolopt "positions" rawopts + types = boolopt "types" rawopts -- Modified queries. These may not work with boolean queries (#2371). -- a depth limit will clip and exclude account names later, but we don't want to exclude accounts at this stage nodepthq = dbg4 "nodepthq" $ filterQuery (not . queryIsDepth) query