From: simonmar <unknown>
Date: Thu, 12 Jun 2003 15:15:23 +0000 (+0000)
Subject: [project @ 2003-06-12 15:15:23 by simonmar]
X-Git-Tag: nhc98-1-18-release~612
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8b09945bb2232654a357e7bbf9acef37ee21d9ef;hp=42d83e2ac9599ac97e33c0a93623111e095e737d;p=ghc-base.git

[project @ 2003-06-12 15:15:23 by simonmar]
exitWith should be using throwIO not throw.
---

diff --git a/System/Exit.hs b/System/Exit.hs
index 23bfbdb..3c2aea2 100644
--- a/System/Exit.hs
+++ b/System/Exit.hs
@@ -45,9 +45,9 @@ import System
 
 #ifndef __NHC__
 exitWith :: ExitCode -> IO a
-exitWith ExitSuccess = throw (ExitException ExitSuccess)
+exitWith ExitSuccess = throwIO (ExitException ExitSuccess)
 exitWith code@(ExitFailure n)
-  | n /= 0 = throw (ExitException code)
+  | n /= 0 = throwIO (ExitException code)
 #ifdef __GLASGOW_HASKELL__
   | otherwise = ioError (IOError Nothing InvalidArgument "exitWith" "ExitFailure 0" Nothing)
 #endif