From b4ad81c7ef42e09477305eb4cdd0bd37d332733b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Aug 1997 22:21:46 +0000
Subject: [PATCH] [project @ 1997-08-25 22:21:46 by sof] 2.06 uses PackBase

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

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 12c7190..0647cf3 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -332,8 +332,11 @@ lexemeToString (StringBuffer fo _ start_pos# current#) =
  if start_pos# ==# current# then
     ""
  else
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 205
     byteArrayToString (copySubStr (A# fo) (I# start_pos#) (I# (current# -# start_pos#)))
-
+#else
+    unpackCStringBA (copySubStr (A# fo) (I# start_pos#) (I# (current# -# start_pos#)))
+#endif
     
 lexemeToByteArray :: StringBuffer -> _ByteArray Int
 lexemeToByteArray (StringBuffer fo _ start_pos# current#) = 
-- 
1.7.10.4