slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Simon Michael 2024-02-20 18:23:03 -10:00
parent 5519065a94
commit 9f53e36904
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Commands/Close.hs
View File

@ -143,7 +143,11 @@ close copts@CliOpts{rawopts_=rawopts, reportspec_=rspec0} j = do
} }
where where
closedesc = T.pack $ fromMaybe defclosedesc_ $ maybestringopt "close-desc" rawopts 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 closeps
-- XXX some duplication -- XXX some duplication
| mode_ == Assert = | mode_ == Assert =