diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-03-11 14:37:10 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-03-11 14:37:10 +0000 |
| commit | aa94e340980f715b8d20e6cbc60d989b5c59e6b5 (patch) | |
| tree | fa604a0657e0e019d6e8fa009b43101b04833583 /src/GF/Compile/GetGrammar.hs | |
| parent | 5f731b3ad6f19cdcc3b160b63b9b0531c5739ad0 (diff) | |
coding flag as pragma in files
Diffstat (limited to 'src/GF/Compile/GetGrammar.hs')
| -rw-r--r-- | src/GF/Compile/GetGrammar.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs index d9afc9546..2b908bd81 100644 --- a/src/GF/Compile/GetGrammar.hs +++ b/src/GF/Compile/GetGrammar.hs @@ -29,6 +29,7 @@ import qualified GF.Source.AbsGF as A import GF.Source.SourceToGrammar ---- import Macros ---- import Rename +import GF.Text.UTF8 ---- import GF.Infra.Option --- import Custom import GF.Source.ParGF @@ -56,7 +57,10 @@ getSourceModule opts file0 = do -- ioeIO $ putStrLn $ "preproc" +++ cmd return tmp _ -> return file0 - string <- readFileIOE file + string0 <- readFileIOE file + let string = case getOptVal opts uniCoding of + Just "utf8" -> decodeUTF8 string0 + _ -> string0 let tokens = myLexer string mo1 <- ioeErr $ {- err2err $ -} pModDef tokens ioeErr $ transModDef mo1 |