X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FOldException.hs;fp=Control%2FOldException.hs;h=6014e1c9b09c46efdf2457e1b49aae455ac477c7;hb=ef17f616e2b78ee6e8b5db10bcd43a019fcc8b6c;hp=dd26167659b218934e2b882031ac24e6b6b03420;hpb=b9152b3523862840a0b682ffa55cf55281c93185;p=ghc-base.git

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__