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