[commit: bytestring] master: Fix an issue with char/binary Handle write ordering with ghc-6.12 (b3ff993)

[Ian Lynagh]

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 <duncan at community.haskell.org>
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 =