From ba0bb5eb4a1b7e66bb16c945899bbe67665cd1ca Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Thu, 6 Apr 2023 11:05:08 -1000 Subject: [PATCH] imp: close: restore legacy flags --closing/--opening/--close-to/--open-from (#2020) They're cruft, but hidden and low cost and remove one more user hassle. --- hledger/Hledger/Cli/Commands/Close.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/hledger/Hledger/Cli/Commands/Close.hs b/hledger/Hledger/Cli/Commands/Close.hs index 7289d407a..29a611565 100644 --- a/hledger/Hledger/Cli/Commands/Close.hs +++ b/hledger/Hledger/Cli/Commands/Close.hs @@ -43,8 +43,12 @@ closemode = hledgerCommandMode ] [generalflagsgroup1] (hiddenflags - -- any old command flags for compatibility, hidden - -- ++ [] + ++ -- keep supporting old flag names for compatibility + [flagNone ["closing"] (setboolopt "close") "old spelling of --close" + ,flagNone ["opening"] (setboolopt "open") "old spelling of --open" + ,flagReq ["close-to"] (\s opts -> Right $ setopt "close-acct" s opts) "ACCT" "old spelling of --close-acct" + ,flagReq ["open-from"] (\s opts -> Right $ setopt "open-acct" s opts) "ACCT" "old spelling of --open-acct" + ] ) ([], Just $ argsFlag "[--close | --open | --migrate | --retain] [ACCTQUERY]")