Un-ignore coreIO error-numbers when processing one file only
parent
24886e818a
commit
62d066d496
|
@ -183,9 +183,10 @@ mainCmdParser helpDesc = do
|
||||||
trace (showConfigYaml config) $ return ()
|
trace (showConfigYaml config) $ return ()
|
||||||
|
|
||||||
results <- zipWithM (coreIO putStrErrLn config suppressOutput) inputPaths outputPaths
|
results <- zipWithM (coreIO putStrErrLn config suppressOutput) inputPaths outputPaths
|
||||||
case sequence_ results of
|
case results of
|
||||||
Left _ -> System.Exit.exitWith (System.Exit.ExitFailure 1)
|
xs | all Data.Either.isRight xs -> pure ()
|
||||||
Right _ -> pure ()
|
[Left x] -> System.Exit.exitWith (System.Exit.ExitFailure x)
|
||||||
|
_ -> System.Exit.exitWith (System.Exit.ExitFailure 1)
|
||||||
|
|
||||||
|
|
||||||
-- | The main IO parts for the default mode of operation, and after commandline
|
-- | The main IO parts for the default mode of operation, and after commandline
|
||||||
|
|
Loading…
Reference in New Issue