From c784cf4a387f3db2b77388c6d39a79875f9a1c85 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 9 Sep 2021 11:46:01 -1000
Subject: [PATCH] imp: cli: hide the old --infer-value flag spelling

Hide this deprecated legacy flag, and also leave more width for flag descriptions in --help.
---
 hledger/Hledger/Cli/CliOptions.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/hledger/Hledger/Cli/CliOptions.hs b/hledger/Hledger/Cli/CliOptions.hs
index a82b19634..ed5586d17 100644
--- a/hledger/Hledger/Cli/CliOptions.hs
+++ b/hledger/Hledger/Cli/CliOptions.hs
@@ -184,8 +184,11 @@ reportflags = [
      ,"'now':  convert to current market value, in default valuation commodity or COMM"
      ,"YYYY-MM-DD: convert to market value on the given date, in default valuation commodity or COMM"
      ])
-  -- XXX infer-value renamed to infer-market-price and deprecated 2021-02
- ,flagNone ["infer-market-price","infer-value"]   (setboolopt "infer-market-price") 
+  -- history of this flag:
+  -- originally --infer-value
+  -- 2021-02, --infer-market-price added, --infer-value deprecated 
+  -- 2021-09, --infer-value hidden
+ ,flagNone ["infer-market-price"] (setboolopt "infer-market-price") 
     "use transaction prices (recorded with @ or @@) as additional market prices, as if they were P directives"
 
   -- generated postings/transactions
@@ -225,8 +228,9 @@ flattreeflags showamounthelp = [
 -- such as --effective, --aux-date.
 hiddenflags :: [Flag RawOpts]
 hiddenflags = [
-  flagNone ["effective","aux-date"] (setboolopt "date2") "Ledger-compatible aliases for --date2"
- ]
+   flagNone ["effective","aux-date"] (setboolopt "date2") "Ledger-compatible aliases for --date2"
+  ,flagNone ["infer-value"] (setboolopt "infer-market-price") "legacy flag that was renamed"
+  ]
 
 -- | Common output-related flags: --output-file, --output-format...