Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/122140d0a9e6509e49e62b6906659c736dda423c >--------------------------------------------------------------- commit 122140d0a9e6509e49e62b6906659c736dda423c Author: Simon Marlow <[email protected]> Date: Mon Jul 11 09:59:02 2011 +0100 export unsafeDupablePerformIO >--------------------------------------------------------------- System/IO/Unsafe.hs | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/System/IO/Unsafe.hs b/System/IO/Unsafe.hs index 719bd3e..3dd018f 100644 --- a/System/IO/Unsafe.hs +++ b/System/IO/Unsafe.hs @@ -17,18 +17,21 @@ 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
