From: Ian Lynagh <igloo@earth.li>
Date: Fri, 1 Aug 2008 21:45:46 +0000 (+0000)
Subject: Make some more imports non-recursive
X-Git-Tag: 6_10_branch_has_been_forked~107
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ef17f616e2b78ee6e8b5db10bcd43a019fcc8b6c;p=ghc-base.git

Make some more imports non-recursive
---

diff --git a/Control/OldException.hs b/Control/OldException.hs
index dd26167..6014e1c 100644
--- a/Control/OldException.hs
+++ b/Control/OldException.hs
@@ -139,10 +139,11 @@ import GHC.IOBase (block, unblock, evaluate, catchException, throwIO)
 import qualified GHC.IOBase as ExceptionBase
 import qualified GHC.IOBase as New
 import GHC.Exception hiding ( Exception )
-import {-# SOURCE #-} GHC.Conc
+import GHC.Conc hiding (setUncaughtExceptionHandler,
+                        getUncaughtExceptionHandler)
 import Data.IORef       ( IORef, newIORef, readIORef, writeIORef )
 import Foreign.C.String ( CString, withCString )
-import {-# SOURCE #-} GHC.Handle       ( stdout, hFlush )
+import GHC.Handle       ( stdout, hFlush )
 #endif
 
 #ifdef __HUGS__
diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 39f4a4f..23a6545 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -35,7 +35,7 @@ import GHC.Conc hiding (throwTo)
 import GHC.Err
 import GHC.Num
 import GHC.Real
-import {-# SOURCE #-} GHC.Handle
+import GHC.Handle
 import GHC.IOBase
 import GHC.Weak
 import Data.Typeable