X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FInteractiveUI.hs;h=1e98d0c2b7ca48a8bf39f901546076034b77732c;hp=b09690b8642e1ae84e162d7d6ab9d68a5a84d04d;hb=2cc5b907318f97e19b28b2ad8ed9ff8c1f401dcc;hpb=239e9471e104fd88ec93bf42623c3a68a496657a

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index b09690b..1e98d0c 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.112 2002/01/28 13:34:10 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.113 2002/02/12 15:17:15 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -67,7 +67,8 @@ import IO
 import Char
 import Monad
 
-import PrelGHC 		( unsafeCoerce# )
+import GlaExts		( unsafeCoerce# )
+
 import Foreign		( nullPtr )
 import CString		( peekCString )
 
@@ -271,7 +272,7 @@ interactiveLoop is_tty = do
 
 checkPerms :: String -> IO Bool
 checkPerms name =
-  handle (\_ -> return False) $ do
+  DriverUtil.handle (\_ -> return False) $ do
 #ifdef mingw32_TARGET_OS
      doesFileExist name
 #else