diff options
Diffstat (limited to 'src-3.0/GF/Command/Interpreter.hs')
| -rw-r--r-- | src-3.0/GF/Command/Interpreter.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src-3.0/GF/Command/Interpreter.hs b/src-3.0/GF/Command/Interpreter.hs index a5da51f7e..fa0de5ec8 100644 --- a/src-3.0/GF/Command/Interpreter.hs +++ b/src-3.0/GF/Command/Interpreter.hs @@ -1,5 +1,6 @@ module GF.Command.Interpreter ( CommandEnv (..), + mkCommandEnv, interpretCommandLine ) where @@ -21,6 +22,9 @@ data CommandEnv = CommandEnv { commands :: Map.Map String CommandInfo } +mkCommandEnv :: PGF -> CommandEnv +mkCommandEnv pgf = CommandEnv pgf (allCommands pgf) + interpretCommandLine :: CommandEnv -> String -> IO () interpretCommandLine env line = case (pCommandLine (myLexer line)) of Ok CEmpty -> return () |