From 6be08d77e01ae418634897de62d44b5b1782566a Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 23 Feb 2009 14:17:16 +0000 Subject: fix the handling of flag coding --- src/GF/Command/Interpreter.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/Command/Interpreter.hs') diff --git a/src/GF/Command/Interpreter.hs b/src/GF/Command/Interpreter.hs index 7e9ebb653..7c962b375 100644 --- a/src/GF/Command/Interpreter.hs +++ b/src/GF/Command/Interpreter.hs @@ -16,6 +16,7 @@ import PGF.Macros import PGF.Morphology import GF.System.Signal import GF.Infra.UseIO +import GF.Infra.Option import GF.Data.ErrM ---- @@ -29,13 +30,13 @@ data CommandEnv = CommandEnv { expmacros :: Map.Map String Tree } -mkCommandEnv :: String -> PGF -> CommandEnv +mkCommandEnv :: Encoding -> PGF -> CommandEnv mkCommandEnv enc pgf = let mos = Map.fromList [(la,buildMorpho pgf la) | la <- languages pgf] in CommandEnv pgf mos (allCommands enc (pgf, mos)) Map.empty Map.empty emptyCommandEnv :: CommandEnv -emptyCommandEnv = mkCommandEnv "utf8" emptyPGF +emptyCommandEnv = mkCommandEnv UTF_8 emptyPGF interpretCommandLine :: (String -> String) -> CommandEnv -> String -> IO () interpretCommandLine enc env line = -- cgit v1.2.3