From fd1c3119f74e4cbeb34d54a929a565434d579795 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 14 Apr 2000 08:29:49 +0000
Subject: [PATCH] [project @ 2000-04-14 08:29:49 by simonmar] we should be
 using hPutBufFull here.

---
 ghc/compiler/utils/FastString.lhs |   12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 3d63e7f..4b55c0d 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -91,7 +91,7 @@ import PrelAddr		( Addr(..) )
 import MutableArray	( MutableArray(..) )
 #else
 import PrelArr		( STArray(..), newSTArray )
-import IOExts		( hPutBuf, hPutBufBA )
+import IOExts		( hPutBufFull, hPutBufBAFull )
 #endif
 
 -- ForeignObj is now exported abstractly.
@@ -639,8 +639,7 @@ hPutFS handle (FastString _ l# ba#)
   | otherwise  = hPutBufBA handle (ByteArray bot bot ba#) (I# l#)
 #else
   | otherwise  = do mba <- stToIO $ unsafeThawByteArray (ByteArray (bot::Int) bot ba#)
-                    hPutBufBA  handle mba (I# l#)
-                    return ()
+                    hPutBufBAFull  handle mba (I# l#)
 #endif
  where
   bot = error "hPutFS.ba"
@@ -649,8 +648,11 @@ hPutFS handle (FastString _ l# ba#)
 
 hPutFS handle (CharStr a# l#)
   | l# ==# 0#  = return ()
-  | otherwise  = do hPutBuf handle (A# a#) (I# l#) ; return ()
-
+#if __GLASGOW_HASKELL__ < 407
+  | otherwise  = hPutBuf handle (A# a#) (I# l#)
+#else
+  | otherwise  = hPutBufFull handle (A# a#) (I# l#)
+#endif
 
 #endif
 \end{code}
-- 
1.7.10.4