From: simonmar <unknown>
Date: Wed, 21 Aug 2002 10:44:26 +0000 (+0000)
Subject: [project @ 2002-08-21 10:44:26 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1757
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cfaf5a81bc1c48649e14d8b98066bf6462bc4582;p=ghc-hetmet.git

[project @ 2002-08-21 10:44:26 by simonmar]
Oops, string literals were using mkFastStringNarrow instead of
mkFastString, with the result that characters >= 256 were being
truncated modulo 256.

MERGE TO STABLE
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index c3c7402..57c6834 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -617,7 +617,7 @@ lex_string cont exts s buf
   = case currentChar# buf of
 	'"'#{-"-} -> 
 	   let buf' = incLexeme buf
-               s' = mkFastStringNarrow (map chr (reverse s)) 
+               s' = mkFastString (map chr (reverse s)) 
            in case currentChar# buf' of
 		'#'# | glaExtsEnabled exts -> if all (<= 0xFF) s
                     then cont (ITprimstring s') (incLexeme buf')