[commit: bytestring] master: Import unsafeDupablePerformIO (6bd69fe)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/bytestring

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6bd69fe27af33e878e38f4c579983f6a23120a87

>---------------------------------------------------------------

commit 6bd69fe27af33e878e38f4c579983f6a23120a87
Author: Duncan Coutts <duncan at community.haskell.org>
Date:   Fri Nov 16 13:20:48 2012 +0000

    Import unsafeDupablePerformIO

>---------------------------------------------------------------

 Data/ByteString.hs |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/Data/ByteString.hs b/Data/ByteString.hs
index 5d05d4a..4ee5741 100644
--- a/Data/ByteString.hs
+++ b/Data/ByteString.hs
@@ -271,7 +271,7 @@ import GHC.IO.Handle.Internals
 import GHC.IO.Handle.Types
 import GHC.IO.Buffer
 import GHC.IO.BufferedIO as Buffered
-import GHC.IO                   (unsafePerformIO)
+import GHC.IO                   (unsafePerformIO, unsafeDupablePerformIO)
 import Data.Char                (ord)
 import Foreign.Marshal.Utils    (copyBytes)
 #else
@@ -301,6 +301,10 @@ hWaitForInput :: Handle -> Int -> IO ()
 hWaitForInput _ _ = return ()
 #endif
 
+#ifndef __GLASGOW_HASKELL__
+unsafeDupablePerformIO = unsafePerformIO
+#endif
+
 -- -----------------------------------------------------------------------------
 --
 -- Useful macros, until we have bang patterns