From: ross <unknown>
Date: Wed, 30 Oct 2002 18:21:25 +0000 (+0000)
Subject: [project @ 2002-10-30 18:21:25 by ross]
X-Git-Tag: nhc98-1-18-release~805
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b975802d0ae4e156448729ab62cd7e17889ba413;p=ghc-base.git

[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
--- 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
 
 -----------------------------------------------------------------------------