Haskell - quitte un programme avec un code d'erreur spécifié

Question

Dans Haskell, existe-t-il un moyen de quitter un programme avec un code d'erreur spécifié? Les ressources que j'ai lues pointent généralement vers la fonction error pour quitter un programme avec une erreur, mais il semble toujours terminer le programme avec un code d'erreur de 1.

[martin@localhost Haskell]$ cat error.hs 
main = do 
    error "My English language error message" 
[martin@localhost Haskell]$ ghc error.hs 
[1 of 1] Compiling Main    (error.hs, error.o) 
Linking error ... 
[martin@localhost Haskell]$ ./error 
error: My English language error message 
[martin@localhost Haskell]$ echo $? 
1 

Answer 1

Utilisation exitWith de System.Exit:

main = exitWith (ExitFailure 2) 

J'ajouterais des aides pour des raisons pratiques:

exitWithErrorMessage :: String -> ExitCode -> IO a 
exitWithErrorMessage str e = hPutStrLn stderr str >> exitWith e 

exitResourceMissing :: IO a 
exitResourceMissing = exitWithErrorMessage "Resource missing" (ExitFailure 2)