[project @ 1999-01-25 13:58:55 by sof]

[ghc-hetmet.git] / ghc / lib / exts / GlaExts.lhs

diff --git a/ghc/lib/exts/GlaExts.lhs b/ghc/lib/exts/GlaExts.lhs
index b00e591..2a673e2 100644 (file)
--- a/ghc/lib/exts/GlaExts.lhs
+++ b/ghc/lib/exts/GlaExts.lhs
@@ -52,7 +52,6 @@ module GlaExts
 
         -- misc bits
        trace,
-       Lift(..),
 
         -- and finally, all the unboxed primops of PrelGHC!
         module PrelGHC
@@ -61,18 +60,25 @@ module GlaExts
 
 import PrelGHC
 import PrelBase
+import PrelAddr   ( Addr(..), Word(..) )
 import PrelST
 import IOExts
 import PrelIOBase
 import ByteArray
 import MutableArray
 import Monad
-import Foreign
 
 type PrimIO a = IO a
+
+primIOToIO :: PrimIO a -> IO a
 primIOToIO io = io
+
+ioToPrimIO :: IO a -> PrimIO a
 ioToPrimIO io = io
+
+unsafePerformPrimIO :: PrimIO a -> a
 unsafePerformPrimIO = unsafePerformIO
+
 thenPrimIO :: PrimIO a -> (a -> PrimIO b) -> PrimIO b
 thenPrimIO = (>>=)