import GHC.IOBase
#endif
+#ifdef __HUGS__
+import Hugs.System
+#endif
+
-- ---------------------------------------------------------------------------
-- exitWith
-- program's caller. Before it terminates, any open or semi-closed
-- handles are first closed.
+#ifndef __HUGS__
exitWith :: ExitCode -> IO a
exitWith ExitSuccess = throw (ExitException ExitSuccess)
exitWith code@(ExitFailure n)
exitFailure :: IO a
exitFailure = exitWith (ExitFailure 1)
+#endif /* __HUGS__ */