hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Differentiate ErrNos

pull/51/head
Lennart Spitzner 2017-08-08 00:47:04 +02:00
parent 69c50bebd3
commit 08e94f0e74
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src-brittany/Main.hs
View File

@ -134,16 +134,16 @@ mainCmdParser helpDesc = do
[x] -> return $ Just x [x] -> return $ Just x
_ -> do _ -> do
putStrErrLn $ "more than one input, aborting" putStrErrLn $ "more than one input, aborting"
System.Exit.exitWith (System.Exit.ExitFailure 50) System.Exit.exitWith (System.Exit.ExitFailure 51)
outputPathM <- case outputPaths of outputPathM <- case outputPaths of
[] -> do [] -> do
return Nothing return Nothing
[x] -> return $ Just x [x] -> return $ Just x
_ -> do _ -> do
putStrErrLn $ "more than one output, aborting" 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 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 Just x -> return x
when (confUnpack $ _dconf_dump_config $ _conf_debug $ config) $ do when (confUnpack $ _dconf_dump_config $ _conf_debug $ config) $ do
trace (showConfigYaml config) $ return () trace (showConfigYaml config) $ return ()