[commit: base] master: export unsafeDupablePerformIO (122140d)

[Simon Marlow]

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 <marlowsd at gmail.com>
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