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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
