From 3a7888e66008f1df2e68474c94f94c82f6042383 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 15 Sep 2008 13:16:04 +0000
Subject: A somewhat better solution to the words/UTF-8 problem: do encoding
 last, but only on what appears to be string literals.

---
 src/GF/Compile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile.hs')

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index 92a956d5f..5d5081541 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -208,7 +208,7 @@ compileSourceModule opts env@(k,gr,_) mo@(i,mi) = do
 generateModuleCode :: Options -> FilePath -> SourceModule -> IOE SourceModule
 generateModuleCode opts file minfo = do
   let minfo1 = subexpModule minfo
-      out    = prGrammar (MGrammar [codeSourceModule encodeUTF8 minfo1])
+      out    = codeStringLiterals encodeUTF8 $ prGrammar (MGrammar [minfo1])
   putPointE Normal opts ("  wrote file" +++ file) $ ioeIO $ writeFile file $ out
   return minfo1
 
-- 
cgit v1.2.3