diff options
| author | simonmar <unknown> | 2000-04-14 08:58:00 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-04-14 08:58:00 +0000 |
| commit | c66f5f3ecbbaf2480e3aab3addf2764a877d9bc2 (patch) | |
| tree | 1305f675fd0a1806ccd860896aa2f9eea9b4de7d | |
| parent | 96f9e65b180851a6522742497ff75d141ca40a78 (diff) | |
| download | haskell-c66f5f3ecbbaf2480e3aab3addf2764a877d9bc2.tar.gz | |
[project @ 2000-04-14 08:58:00 by simonmar]
Text => Show
_ByteArray => ByteArray
| -rw-r--r-- | ghc/compiler/utils/StringBuffer.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs index 63f5ee5d34..fd4e21e7f1 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" |