From dd8c403c8156fb2f3020c959326f0acad796855e Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 4 May 2019 12:01:38 -0700
Subject: [PATCH] ;cli: option help tweaks

---
 hledger-lib/Hledger/Reports/ReportOptions.hs | 4 ++--
 hledger/Hledger/Cli/CliOptions.hs            | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Reports/ReportOptions.hs b/hledger-lib/Hledger/Reports/ReportOptions.hs
index 8ce16f153..4cad35bdb 100644
--- a/hledger-lib/Hledger/Reports/ReportOptions.hs
+++ b/hledger-lib/Hledger/Reports/ReportOptions.hs
@@ -78,9 +78,9 @@ instance Default AccountListMode where def = ALDefault
 -- ("today" would have been preferable, but clashes with
 -- "transaction" for abbreviating.)
 data ValueDate =
-    AtTransaction  -- ^ Calculate values as of each posting's date
+    AtTransaction  -- ^ Calculate values as of each posting's date (called "transaction" for UI reasons)
   | AtPeriod       -- ^ Calculate values as of each report period's last day
-  | AtNow          -- ^ Calculate values as of today (report generation date)
+  | AtNow          -- ^ Calculate values as of today (report generation date) (called "now" not today for UI reasons)
   | AtDate Day     -- ^ Calculate values as of some other date
   deriving (Show,Data,Eq) -- Typeable
 
diff --git a/hledger/Hledger/Cli/CliOptions.hs b/hledger/Hledger/Cli/CliOptions.hs
index 3a723e34c..2db46f514 100644
--- a/hledger/Hledger/Cli/CliOptions.hs
+++ b/hledger/Hledger/Cli/CliOptions.hs
@@ -149,7 +149,7 @@ reportflags = [
  ,flagNone ["empty","E"]     (setboolopt "empty") "show items with zero amount, normally hidden (and vice-versa in hledger-ui/hledger-web)"
  ,flagNone ["cost","B"]      (setboolopt "cost") "convert amounts to their cost at transaction time (using the transaction price, if any)"
  ,flagNone ["value","V"]     (setboolopt "value") "convert amounts to their market value"
- ,flagReq  ["value-at"]      (\s opts -> Right $ setopt "value-at" s opts) "VALUEDATE" "as of which date should market values be calculated ? transaction|period|now|YYYY-MM-DD (default: now)"
+ ,flagReq  ["value-at"]      (\s opts -> Right $ setopt "value-at" s opts) "VALUEDATE" "as of which date should market values be calculated ? transaction|period|now|YYYY-MM-DD (implies -V, default: now)"
  ,flagNone ["auto"]          (setboolopt "auto") "apply automated posting rules to modify transactions"
  ,flagNone ["forecast"]      (setboolopt "forecast") "apply periodic transaction rules to generate future transactions, to 6 months from now or report end date"
  ]