expose unsafeInterleaveIO to Hugs
) where
#ifdef __GLASGOW_HASKELL__
) where
#ifdef __GLASGOW_HASKELL__
+import GHC.IOBase (unsafePerformIO, unsafeInterleaveIO)
+import Hugs.IOExts (unsafePerformIO)
#endif
#ifdef __NHC__
import NHC.Internal (unsafePerformIO)
#endif
#ifdef __NHC__
import NHC.Internal (unsafePerformIO)
+#ifndef __GLASGOW_HASKELL__
unsafeInterleaveIO :: IO a -> IO a
unsafeInterleaveIO :: IO a -> IO a
-unsafeInterleaveIO f = let x = unsafePerformIO f in return x
+unsafeInterleaveIO f = return (unsafePerformIO f)