diff options
Diffstat (limited to 'libraries/base/System/Exit.hs')
| -rw-r--r-- | libraries/base/System/Exit.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/libraries/base/System/Exit.hs b/libraries/base/System/Exit.hs index dbe2ce0ce0..a3059fcf9b 100644 --- a/libraries/base/System/Exit.hs +++ b/libraries/base/System/Exit.hs @@ -1,5 +1,4 @@ {-# LANGUAGE Trustworthy #-} -{-# LANGUAGE CPP #-} ----------------------------------------------------------------------------- -- | @@ -25,10 +24,8 @@ module System.Exit import Prelude -#ifdef __GLASGOW_HASKELL__ import GHC.IO import GHC.IO.Exception -#endif -- --------------------------------------------------------------------------- -- exitWith @@ -63,9 +60,7 @@ exitWith :: ExitCode -> IO a exitWith ExitSuccess = throwIO ExitSuccess exitWith code@(ExitFailure n) | n /= 0 = throwIO code -#ifdef __GLASGOW_HASKELL__ | otherwise = ioError (IOError Nothing InvalidArgument "exitWith" "ExitFailure 0" Nothing Nothing) -#endif -- | The computation 'exitFailure' is equivalent to -- 'exitWith' @(@'ExitFailure' /exitfail/@)@, |