Oops, string literals were using mkFastStringNarrow instead of
mkFastString, with the result that characters >= 256 were being
truncated modulo 256.
MERGE TO STABLE
= 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')