diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-15 13:16:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-15 13:16:04 +0000 |
| commit | 3a7888e66008f1df2e68474c94f94c82f6042383 (patch) | |
| tree | 441d94d08d4734360541ea6e86f52ab058b7a2e6 /src/GF/Compile.hs | |
| parent | dbb0f3f3e464044aef1de3abfc1286569ea6543f (diff) | |
A somewhat better solution to the words/UTF-8 problem: do encoding last, but only on what appears to be string literals.
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |