ioToPrimIO,
primIOToIO,
unsafePerformPrimIO,
+ thenPrimIO, thenIO_Prim,
+ seqPrimIO, returnPrimIO,
+
+ seqST, thenST, returnST,
-- Everything from module ByteArray:
module ByteArray,
primIOToIO io = io
ioToPrimIO io = io
unsafePerformPrimIO = unsafePerformIO
+thenPrimIO :: PrimIO a -> (a -> PrimIO b) -> PrimIO b
+thenPrimIO = (>>=)
+
+seqPrimIO :: PrimIO a -> PrimIO b -> PrimIO b
+seqPrimIO = (>>)
+
+returnPrimIO :: a -> PrimIO a
+returnPrimIO = return
+
+thenIO_Prim :: PrimIO a -> (a -> IO b) -> IO b
+thenIO_Prim = (>>=)
+
+-- ST compatibility stubs.
+thenST :: ST s a -> ( a -> ST s b) -> ST s b
+thenST = (>>=)
+
+seqST :: ST s a -> ST s b -> ST s b
+seqST = (>>)
+returnST :: a -> ST s a
+returnST = return
\end{code}