From 1dcd4daa53127812c6d497db0a189e50a1ba5133 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 11 Mar 2000 23:55:16 +0000
Subject: [PATCH] [project @ 2000-03-11 23:55:16 by panne] Saturday Night
 Fever: hPutBufBA again... >:-(

---
 ghc/compiler/utils/FastString.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 5d08d76..80b8c39 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -626,8 +626,11 @@ hPutFS handle (FastString _ l# ba#)
   | l# ==# 0#  = return ()
 #if __GLASGOW_HASKELL__ < 405
   | otherwise  = hPutBufBA handle (ByteArray bot ba#) (I# l#)
-#else
+#elsif __GLASGOW_HASKELL__ < 407
   | 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#)
 #endif
  where
   bot = error "hPutFS.ba"
-- 
1.7.10.4