[project @ 2002-10-11 11:05:20 by malcolm]

[ghc-base.git] / System / Exit.hs

diff --git a/System/Exit.hs b/System/Exit.hs
index 51f619f..3c0ecb8 100644 (file)
--- a/System/Exit.hs
+++ b/System/Exit.hs
@@ -25,6 +25,17 @@ import Prelude
 import GHC.IOBase
 #endif
 
+#ifdef __HUGS__
+import Hugs.System
+#endif
+
+#ifdef __NHC__
+import System
+  ( ExitCode(..)
+  , exitWith
+  )
+#endif
+
 -- ---------------------------------------------------------------------------
 -- exitWith
 
@@ -32,11 +43,13 @@ import GHC.IOBase
 -- program's caller.  Before it terminates, any open or semi-closed
 -- handles are first closed.
 
+#ifdef __GLASGOW_HASKELL__
 exitWith :: ExitCode -> IO a
 exitWith ExitSuccess = throw (ExitException ExitSuccess)
 exitWith code@(ExitFailure n) 
   | n == 0 = ioException (IOError Nothing InvalidArgument "exitWith" "ExitFailure 0" Nothing)
   | otherwise = throw (ExitException code)
+#endif  /* __GLASGOW_HASKELL__ */
 
 exitFailure :: IO a
 exitFailure = exitWith (ExitFailure 1)