shithub: MicroHs

ref: 4e251c0eadcfb51c48483fcc9032d15ca333fa39
dir: /lib/System/IO/Unsafe.hs/

View raw version 
module System.IO.Unsafe(unsafePerformIO, unsafeInterleaveIO) where
import Prelude()
import Primitives

unsafePerformIO :: IO a -> a
unsafePerformIO = primPerformIO

unsafeInterleaveIO :: forall a . IO a -> IO a
unsafeInterleaveIO ioa = primReturn (primPerformIO ioa)