;imp: close: --assert: make default description "assert balances"

2024-02-20 18:23:03 -10:00 · 2024-02-20 18:23:03 -10:00 · 9f53e36904
commit 9f53e36904
parent 5519065a94
1 changed files with 5 additions and 1 deletions
--- a/hledger/Hledger/Cli/Commands/Close.hs
+++ b/hledger/Hledger/Cli/Commands/Close.hs
@ -143,7 +143,11 @@ close copts@CliOpts{rawopts_=rawopts, reportspec_=rspec0} j = do
          }
      where
        closedesc = T.pack $ fromMaybe defclosedesc_ $ maybestringopt "close-desc" rawopts
-          where defclosedesc_ = if mode_ == Retain then defretaindesc else defclosedesc
+          where
+            defclosedesc_
+              | mode_ == Retain = defretaindesc
+              | mode_ == Assert = "assert balances"
+              | otherwise       = defclosedesc
        closeps
          -- XXX some duplication
          | mode_ == Assert =