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

check-dates: on success, be silent and don't force program exit

Browse Source
This commit is contained in:
Simon Michael 2020-11-29 13:24:33 -08:00
parent cd7156013d
commit 325a155f0b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Checkdates.hs
View File

@ -32,8 +32,8 @@ checkdates CliOpts{rawopts_=rawopts,reportspec_=rspec} j = do
then date a < date b
else date a <= date b
case checkTransactions compare ts of
FoldAcc{fa_previous=Nothing} -> putStrLn "ok (empty journal)" >> exitSuccess
FoldAcc{fa_error=Nothing} -> putStrLn "ok" >> exitSuccess
FoldAcc{fa_previous=Nothing} -> return ()
FoldAcc{fa_error=Nothing} -> return ()
FoldAcc{fa_error=Just error, fa_previous=Just previous} ->
(putStrLn $ printf ("ERROR: transaction out of%s date order"
++ "\nPrevious date: %s"