From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Fri, 16 Jan 2009 11:01:32 +0000 (+0000)
Subject: Unbreak an import cycle caused by moving 'catch' definitions around.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0db4d51b10992bdc34503887e51db4605da23332;p=ghc-base.git

Unbreak an import cycle caused by moving 'catch' definitions around.
The new cycle was introduced for nhc98 only.
---

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)