[project @ 2002-09-03 15:32:16 by simonmar]

GlaExts => GHC.Exts

diff --git a/ghc/compiler/ghci/ByteCodeItbls.lhs b/ghc/compiler/ghci/ByteCodeItbls.lhs
index 730852f..c7f829e 100644 (file)
--- a/ghc/compiler/ghci/ByteCodeItbls.lhs
+++ b/ghc/compiler/ghci/ByteCodeItbls.lhs
@@ -27,12 +27,8 @@ import Bits          ( Bits(..), shiftR )
 
 import Monad           ( liftM )
 
-import GlaExts         ( Int(I#), addr2Int# )
-#if __GLASGOW_HASKELL__ < 503
-import Ptr             ( Ptr(..) )
-#else
+import GHC.Exts                ( Int(I#), addr2Int# )
 import GHC.Ptr         ( Ptr(..) )
-#endif
 \end{code}
 
 %************************************************************************

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index 9e1e888..0ca24f8 100644 (file)
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -51,7 +51,7 @@ import Data.Int               ( Int64 )
 import System.IO       ( fixIO )
 import Control.Exception ( throwDyn )
 
-import GlaExts         ( BCO#, newBCO#, unsafeCoerce#, 
+import GHC.Exts                ( BCO#, newBCO#, unsafeCoerce#, 
                          ByteArray#, Array#, addrToHValue#, mkApUpd0# )
 
 import GHC.Arr         ( Array(..) )