From 08e94f0e74237009469b3c4376a2745ed12502d8 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Tue, 8 Aug 2017 00:47:04 +0200 Subject: [PATCH] Differentiate ErrNos --- src-brittany/Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs index 9f0dbc5..e579fb0 100644 --- a/src-brittany/Main.hs +++ b/src-brittany/Main.hs @@ -134,16 +134,16 @@ mainCmdParser helpDesc = do [x] -> return $ Just x _ -> do putStrErrLn $ "more than one input, aborting" - System.Exit.exitWith (System.Exit.ExitFailure 50) + System.Exit.exitWith (System.Exit.ExitFailure 51) outputPathM <- case outputPaths of [] -> do return Nothing [x] -> return $ Just x _ -> do putStrErrLn $ "more than one output, aborting" - System.Exit.exitWith (System.Exit.ExitFailure 50) + System.Exit.exitWith (System.Exit.ExitFailure 52) config <- runMaybeT (readConfigs cmdlineConfig configPaths) >>= \case - Nothing -> System.Exit.exitWith (System.Exit.ExitFailure 50) + Nothing -> System.Exit.exitWith (System.Exit.ExitFailure 53) Just x -> return x when (confUnpack $ _dconf_dump_config $ _conf_debug $ config) $ do trace (showConfigYaml config) $ return ()