From aa94e340980f715b8d20e6cbc60d989b5c59e6b5 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 11 Mar 2008 14:37:10 +0000 Subject: coding flag as pragma in files --- src/GF/Compile/Compile.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/GF/Compile/Compile.hs') 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 () -- cgit v1.2.3