From 834f685ecc4d8f12c9fb522f6288757c15469fdc Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Sat, 2 Nov 2002 11:56:30 +0000
Subject: [PATCH] [project @ 2002-11-02 11:56:30 by ross] Hugs only: export
 throwIO :: Exception -> IO a instead of a generalized
 ioError.  This is an interim measure to keep Hugs working
 until it's decided what to do about IOError.

---
 Control/Exception.hs |   18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/Control/Exception.hs b/Control/Exception.hs
index b973232..8086b22 100644
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -25,11 +25,11 @@ module Control.Exception (
 #endif
 
 	-- * Throwing exceptions
-#ifndef __HUGS__
+#ifdef __HUGS__
+	throwIO,	-- :: Exception -> IO a
+#else
 	throw,		-- :: Exception -> a
-#endif
 	ioError,	-- :: Exception -> IO a
-#ifndef __HUGS__
 	throwTo,	-- :: ThreadId -> Exception -> a
 #endif
 
@@ -111,7 +111,6 @@ module Control.Exception (
   ) where
 
 #ifdef __GLASGOW_HASKELL__
-import Prelude 		hiding (catch)
 import GHC.Base		( assert )
 import GHC.Exception 	as ExceptionBase hiding (try, catch, bracket, bracket_)
 import GHC.Conc		( throwTo, ThreadId )
@@ -119,11 +118,11 @@ import GHC.IOBase	( IO(..) )
 #endif
 
 #ifdef __HUGS__
-import Prelude 		hiding ( catch, ioError )
 import Hugs.Exception	hiding ( evaluate )
 import qualified Hugs.Exception as ExceptionBase
 #endif
 
+import Prelude 		hiding ( catch )
 import System.IO.Error
 import Data.Dynamic
 
@@ -319,20 +318,15 @@ catchDyn m k = catchException m handle
 -- 'catchJust', 'tryJust', or 'handleJust' to select certain common
 -- classes of exceptions.
 
-ioErrors		:: Exception -> Maybe IOError
 #ifdef __GLASGOW_HASKELL__
+ioErrors		:: Exception -> Maybe IOError
 arithExceptions 	:: Exception -> Maybe ArithException
 errorCalls		:: Exception -> Maybe String
 dynExceptions		:: Exception -> Maybe Dynamic
 assertions		:: Exception -> Maybe String
 asyncExceptions 	:: Exception -> Maybe AsyncException
-#endif /* __GLASGOW_HASKELL__ */
 userErrors		:: Exception -> Maybe String
-
-#ifdef __HUGS__
-ioErrors = justIoErrors
-userErrors = justUserErrors
-#endif
+#endif /* __GLASGOW_HASKELL__ */
 
 #ifdef __GLASGOW_HASKELL__
 ioErrors e@(IOException _) = Just e
-- 
1.7.10.4