System.IO.Unsafe

module System.IO.Unsafe where
import MonadicIO0

unsafePerformIO = primUnsafePerformIO

unsafeInterleaveIO :: IO a -> IO a
unsafeInterleaveIO io = return (unsafePerformIO io)