[project @ 2002-08-21 10:44:26 by simonmar]

[ghc-hetmet.git] / ghc / compiler / parser / Lex.lhs

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index c3c7402..57c6834 100644 (file)
--- 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')