Make some more imports non-recursive

diff --git a/Control/OldException.hs b/Control/OldException.hs
index dd26167..6014e1c 100644 (file)
--- 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 (file)
--- 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