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 (file)
--- 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)