From 1607c878b9e27ac836c178b2c441996127e5d3e9 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 10 Jan 2006 09:47:51 +0000
Subject: [PATCH 1/1] [project @ 2006-01-10 09:47:51 by simonmar] Fix
 compilation with GHC 6.2.x, hopefully

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

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 134bb95..28aa6b0 100644
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -455,6 +455,7 @@ pokeCAString ptr str =
   go str 0
 
 #if __GLASGOW_HASKELL__ < 600
+
 mallocForeignPtrBytes :: Int -> IO (ForeignPtr a)
 mallocForeignPtrBytes n = do
   r <- mallocBytes n
@@ -464,5 +465,10 @@ foreign import ccall unsafe "stdlib.h free"
   finalizerFree :: Ptr a -> IO ()
 
 peekCAStringLen = peekCStringLen
+
+#elif __GLASGOW_HASKELL__ <= 602
+
+peekCAStringLen = peekCStringLen
+
 #endif
 \end{code}
-- 
1.7.10.4