Repository : ssh://darcs.haskell.org//srv/darcs/packages/bytestring On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b3ff993e8dbf6f68dbd21f1d1e6cabdd637d0737 >--------------------------------------------------------------- commit b3ff993e8dbf6f68dbd21f1d1e6cabdd637d0737 Author: Duncan Coutts <[email protected]> Date: Thu Nov 17 00:58:26 2011 +0000 Fix an issue with char/binary Handle write ordering with ghc-6.12 For 6.12 it needs an extra flushWriteBuffer. >--------------------------------------------------------------- Data/ByteString/Lazy/Builder/Internal.hs | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/Data/ByteString/Lazy/Builder/Internal.hs b/Data/ByteString/Lazy/Builder/Internal.hs index f8bf9d1..95533b0 100644 --- a/Data/ByteString/Lazy/Builder/Internal.hs +++ b/Data/ByteString/Lazy/Builder/Internal.hs @@ -454,7 +454,13 @@ hPut h p = do newByteBuffer minFree s >>= writeIORef refBuf | freeSpace buf < minFree = flushWriteBuffer h_ - | otherwise = return () + | otherwise = +#if __GLASGOW_HASKELL__ >= 613 + return () +#else + -- required for ghc-6.12 + flushWriteBuffer h_ +#endif fillBuffer buf | freeSpace buf < minFree = _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
