From 0db4d51b10992bdc34503887e51db4605da23332 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Fri, 16 Jan 2009 11:01:32 +0000
Subject: [PATCH] Unbreak an import cycle caused by moving 'catch' definitions
 around. The new cycle was introduced for nhc98 only.

---
 Control/Exception/Base.hs |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Control/Exception/Base.hs b/Control/Exception/Base.hs
index f9f20f8..468dd49 100644
--- a/Control/Exception/Base.hs
+++ b/Control/Exception/Base.hs
@@ -128,9 +128,8 @@ import Data.Either
 import Data.Maybe
 
 #ifdef __NHC__
-import qualified System.IO.Error as H'98 (catch)
-import System.IO.Error (ioError)
-import IO              (bracket)
+import qualified IO as H'98 (catch)
+import IO              (bracket,ioError)
 import DIOError         -- defn of IOError type
 import System          (ExitCode())
 import System.IO.Unsafe (unsafePerformIO)
-- 
1.7.10.4