git.iko.soy/ormolu
on master help sign in
Use different exit codes for different exceptions
b2024bfBasile Henry
src/Ormolu/Exception.hs+8−2
compare with master
unifiedsplit
@@ -10,7 +10,7 @@ where
10
10
11import Control.Exception
11import Control.Exception
12import Data.Text (Text)
12import Data.Text (Text)
13−import System.Exit (exitFailure)
13+import System.Exit (ExitCode (ExitFailure), exitWith)
14import System.IO
14import System.IO
15import qualified GHC
15import qualified GHC
16import qualified Outputable as GHC
16import qualified Outputable as GHC
@@ -53,7 +53,13 @@ withPrettyOrmoluExceptions m = m `catch` h
53 h :: OrmoluException -> IO a
53 h :: OrmoluException -> IO a
54 h e = do
54 h e = do
55 hPutStrLn stderr (displayException e)
55 hPutStrLn stderr (displayException e)
56− exitFailure
56+ exitWith . ExitFailure $
57+ case e of
58+ -- Error code 1 is for `error` or `notImplemented`
59+ OrmoluCppEnabled -> 2
60+ OrmoluParsingFailed _ _ -> 3
61+ OrmoluOutputParsingFailed _ _ -> 4
62+ OrmoluASTDiffers _ _ -> 5
57
63
58----------------------------------------------------------------------------
64----------------------------------------------------------------------------
59-- Helpers
65-- Helpers