export unsafeDupablePerformIO
authorSimon Marlow <marlowsd@gmail.com>
Mon, 11 Jul 2011 08:59:02 +0000 (09:59 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 18 Jul 2011 12:23:58 +0000 (13:23 +0100)
System/IO/Unsafe.hs

index 719bd3e..3dd018f 100644 (file)
 module System.IO.Unsafe (
    -- * Unsafe 'System.IO.IO' operations
    unsafePerformIO,     -- :: IO a -> a
+   unsafeDupablePerformIO, -- :: IO a -> a
    unsafeInterleaveIO,  -- :: IO a -> IO a
   ) where
 
 #ifdef __GLASGOW_HASKELL__
-import GHC.IO      (unsafePerformIO, unsafeInterleaveIO)
+import GHC.IO      (unsafePerformIO, unsafeInterleaveIO, unsafeDupablePerformIO)
 #endif
 
 #ifdef __HUGS__
 import Hugs.IOExts (unsafePerformIO, unsafeInterleaveIO)
+unsafeDupablePerformIO = unsafePerformIO
 #endif
 
 #ifdef __NHC__
 import NHC.Internal (unsafePerformIO, unsafeInterleaveIO)
+unsafeDupablePerformIO = unsafePerformIO
 #endif