diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-10-01 16:01:51 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-10-01 16:01:51 +0000 |
| commit | 429092ac6aa1374a468b36904b4c2c668d892c54 (patch) | |
| tree | 73d56e3a233b80b8e25a80b5b518802590603718 /src/GF/Command/Interpreter.hs | |
| parent | 307042a6a1863854920da7eaae6fbc588457221c (diff) | |
added mode 'gf --run' for running silently a script ; made quizzes handle character encoding correctly ; for this end, collected coding functions in GF.Text.Coding
Diffstat (limited to 'src/GF/Command/Interpreter.hs')
| -rw-r--r-- | src/GF/Command/Interpreter.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Command/Interpreter.hs b/src/GF/Command/Interpreter.hs index f4e3e220d..eff6e8b58 100644 --- a/src/GF/Command/Interpreter.hs +++ b/src/GF/Command/Interpreter.hs @@ -28,11 +28,11 @@ data CommandEnv = CommandEnv { expmacros :: Map.Map String Tree } -mkCommandEnv :: (String -> String) -> PGF -> CommandEnv +mkCommandEnv :: String -> PGF -> CommandEnv mkCommandEnv enc pgf = CommandEnv pgf (allCommands enc pgf) Map.empty Map.empty emptyCommandEnv :: CommandEnv -emptyCommandEnv = mkCommandEnv encodeUTF8 emptyPGF +emptyCommandEnv = mkCommandEnv "utf8" emptyPGF interpretCommandLine :: (String -> String) -> CommandEnv -> String -> IO () interpretCommandLine enc env line = |