[commit: bytestring] ghc-7.6: Import unsafeDupablePerformIO (a7a10bc)

[Ian Lynagh]

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

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/a7a10bc1aad5f0f1538153a3cfdb34dd24ec92a2

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

commit a7a10bc1aad5f0f1538153a3cfdb34dd24ec92a2
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 91dcf94..bc3a95f 100644
--- a/Data/ByteString.hs
+++ b/Data/ByteString.hs
@@ -270,7 +270,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
@@ -300,6 +300,10 @@ hWaitForInput :: Handle -> Int -> IO ()
 hWaitForInput _ _ = return ()
 #endif
 
+#ifndef __GLASGOW_HASKELL__
+unsafeDupablePerformIO = unsafePerformIO
+#endif
+
 -- -----------------------------------------------------------------------------
 --
 -- Useful macros, until we have bang patterns