simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

imp: check: exit with error' for consistent output

Browse Source
This commit is contained in:
Simon Michael 2022-04-21 23:54:22 -10:00
parent 5ab7b9f643
commit 0d232ed673
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,8 +14,6 @@ import Data.Either (partitionEithers)
import Data.List (isPrefixOf, find)
import Control.Monad (forM_)
import System.Console.CmdArgs.Explicit
import System.Exit (exitFailure)
import System.IO (stderr, hPutStrLn)
import Hledger
import Hledger.Cli.CliOptions
@ -120,4 +118,4 @@ runCheck copts@CliOpts{rawopts_} j (check,args) = do
case results of
Right () -> return ()
Left err -> hPutStrLn stderr ("Error: "++err) >> exitFailure
Left err -> error' err