From: simonmar <unknown>
Date: Fri, 14 Apr 2000 08:58:00 +0000 (+0000)
Subject: [project @ 2000-04-14 08:58:00 by simonmar]
X-Git-Tag: Approximately_9120_patches~4703
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c66f5f3ecbbaf2480e3aab3addf2764a877d9bc2;p=ghc-hetmet.git

[project @ 2000-04-14 08:58:00 by simonmar]
Text => Show
_ByteArray => ByteArray
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 63f5ee5..fd4e21e 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -123,7 +123,7 @@ data StringBuffer
 \end{code}
 
 \begin{code}
-instance Text StringBuffer where
+instance Show StringBuffer where
 	showsPrec _ s = showString ""
 \end{code}
 
@@ -504,7 +504,7 @@ lexemeToString (StringBuffer fo _ start_pos# current#) =
  else
     unpackCStringBA (copySubStr (A# fo) (I# start_pos#) (I# (current# -# start_pos#)))
     
-lexemeToByteArray :: StringBuffer -> _ByteArray Int
+lexemeToByteArray :: StringBuffer -> ByteArray Int
 lexemeToByteArray (StringBuffer fo _ start_pos# current#) = 
  if start_pos# ==# current# then
     error "lexemeToByteArray"