42c9198 · ormolu · git.iko.soy

on master help sign in

Use explicit error code in `check` mode

42c9198Basile Henry7 years ago

app/Main.hs+5−2

@@ -12,7 +12,7 @@ import Development.GitRev

12import Options.Applicative

13import Ormolu

14import Paths_ormolu (version)

15−import System.Exit (exitFailure)

15+import System.Exit (ExitCode (..), exitWith)

16import qualified Data.Text.IO as TIO

17import qualified Data.Yaml as Yaml

@@ -34,7 +34,10 @@ main = withPrettyOrmoluExceptions $ do

34 TIO.writeFile optInputFile r

35 Check -> do

36 r' <- TIO.readFile optInputFile

37− when (r /= r') exitFailure

37+ when (r /= r') . exitWith $

38+ ExitFailure 100 -- 100 is different to all the other exit code that

39+ -- are emitted either from an 'OrmoluException' or

40+ -- from 'error' and 'notImplemented'.

39----------------------------------------------------------------------------

42----------------------------------------------------------------------------

40-- Command line options parsing.

43-- Command line options parsing.

src/Ormolu/Exception.hs+1−1

@@ -10,7 +10,7 @@ where

11import Control.Exception

12import Data.Text (Text)

13−import System.Exit (ExitCode (ExitFailure), exitWith)

13+import System.Exit (ExitCode (..), exitWith)

14import System.IO

15import qualified GHC

16import qualified Outputable as GHC