module System.IO.Unsafe where import MonadicIO0 unsafePerformIO = primUnsafePerformIO unsafeInterleaveIO :: IO a -> IO a unsafeInterleaveIO io = return (unsafePerformIO io)
module System.IO.Unsafe where import MonadicIO0 unsafePerformIO = primUnsafePerformIO unsafeInterleaveIO :: IO a -> IO a unsafeInterleaveIO io = return (unsafePerformIO io)