From cfaf5a81bc1c48649e14d8b98066bf6462bc4582 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 21 Aug 2002 10:44:26 +0000
Subject: [PATCH] [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
---
 ghc/compiler/parser/Lex.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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')
-- 
1.7.10.4