[project @ 2002-10-30 18:21:25 by ross]

(Hugs only) fix silly slip in last commit.

diff --git a/Control/Exception.hs b/Control/Exception.hs
index 3ab3ceb..b973232 100644 (file)
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -139,7 +139,7 @@ INSTANCE_TYPEABLE0(AsyncException,asyncExceptionTc,"AsyncException")
 #ifdef __HUGS__
 -- This is as close as Hugs gets to providing throw
 throw :: Exception -> IO a
-throw = ioError
+throw = throwIO
 #endif
 
 -----------------------------------------------------------------------------