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

;check: refactor

Browse Source
This commit is contained in:
Simon Michael 2021-03-03 06:06:39 -08:00
parent ffb985f1a2
commit 642ad24b0e
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hledger/Hledger/Cli/Commands/Check/Ordereddates.hs
View File

@ -14,15 +14,13 @@ import Hledger.Cli.CliOptions
journalCheckOrdereddates :: CliOpts -> Journal -> Either String () journalCheckOrdereddates :: CliOpts -> Journal -> Either String ()
journalCheckOrdereddates CliOpts{reportspec_=rspec} j = do journalCheckOrdereddates CliOpts{reportspec_=rspec} j = do
let ropts = (rsOpts rspec){accountlistmode_=ALFlat} let
let ts = filter (rsQuery rspec `matchesTransaction`) $ ropts = (rsOpts rspec){accountlistmode_=ALFlat}
ts = filter (rsQuery rspec `matchesTransaction`) $
jtxns $ journalSelectingAmountFromOpts ropts j jtxns $ journalSelectingAmountFromOpts ropts j
let checkunique = False -- boolopt "unique" rawopts XXX was supported by checkdates command checkunique = False -- boolopt "unique" rawopts XXX was supported by checkdates command
let getdate = transactionDateFn ropts compare a b = if checkunique then getdate a < getdate b else getdate a <= getdate b
let compare a b = where getdate = transactionDateFn ropts
if checkunique
then getdate a < getdate b
else getdate a <= getdate b
case checkTransactions compare ts of case checkTransactions compare ts of
FoldAcc{fa_previous=Nothing} -> return () FoldAcc{fa_previous=Nothing} -> return ()
FoldAcc{fa_error=Nothing} -> return () FoldAcc{fa_error=Nothing} -> return ()