coding flag as pragma in files

1 files changed, 5 insertions, 1 deletions

diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index faece6a99..856544152 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -53,6 +53,7 @@ import GF.Canon.GetGFC
 
 import GF.Data.Operations
 import GF.Infra.UseIO
+import GF.Text.UTF8 ----
 import GF.System.Arch
 
 import Control.Monad
@@ -338,9 +339,12 @@ generateModuleCode opts path minfo@(name,info) = do
       let (file,out) = (gfrFile pname, prGrammar (MGrammar [rminfo]))
       putp ("  wrote file" +++ file) $ ioeIO $ writeFile file $ compactPrint out
     _ -> return ()
+  let encode = case getOptVal opts uniCoding of
+        Just "utf8" -> encodeUTF8
+        _ -> id
   (file,out) <- do
       code <- return $ MkGFC.prCanonModInfo minfo'
-      return (gfcFile pname, code)
+      return (gfcFile pname, encode code)
   if emit && nomulti ---- && isCompilable info 
      then putp  ("  wrote file" +++ file) $ ioeIO $ writeFile file out
      else putpp ("no need to save module" +++ prt name) $ return ()