-- misc bits
trace,
- Lift(..),
-- and finally, all the unboxed primops of PrelGHC!
module PrelGHC
import PrelGHC
import PrelBase
-import PrelAddr ( Addr(..) )
+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 = (>>=)