From b975802d0ae4e156448729ab62cd7e17889ba413 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Wed, 30 Oct 2002 18:21:25 +0000
Subject: [PATCH] [project @ 2002-10-30 18:21:25 by ross] (Hugs only) fix
 silly slip in last commit.

---
 Control/Exception.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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