diff options
| author | hallgren <hallgren@chalmers.se> | 2015-08-11 16:14:38 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-08-11 16:14:38 +0000 |
| commit | e50f92c41d2fdfda6d07a1aab0d3e375ab264617 (patch) | |
| tree | a969732cfdf116aa4df4a56916d8ccab2d419870 /src/compiler/GF/Interactive.hs | |
| parent | 6b90024d09f48e6f193c0a6a639ec893fa9c27d1 (diff) | |
GF shell: make environment types abstract, comment out some dead code
Diffstat (limited to 'src/compiler/GF/Interactive.hs')
| -rw-r--r-- | src/compiler/GF/Interactive.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Interactive.hs b/src/compiler/GF/Interactive.hs index a404e0567..57dfa5f57 100644 --- a/src/compiler/GF/Interactive.hs +++ b/src/compiler/GF/Interactive.hs @@ -5,7 +5,7 @@ import Prelude hiding (putStrLn,print) import qualified Prelude as P(putStrLn) import GF.Command.Interpreter(CommandEnv(..),pgfenv,commands,mkCommandEnv,interpretCommandLine) --import GF.Command.Importing(importSource,importGrammar) -import GF.Command.Commands(flags,options,PGFEnv,pgfEnv,allCommands) +import GF.Command.Commands(flags,options,PGFEnv,pgf,pgfEnv,allCommands) import GF.Command.Abstract import GF.Command.Parse(readCommandLine,pCommand) import GF.Data.Operations (Err(..),chunks,err,raise,done) @@ -415,7 +415,7 @@ emptyGFEnv = GFEnv emptyGrammar False emptyCommandEnv [] {-0-} commandEnv pgf = mkCommandEnv (pgfEnv pgf) allCommands emptyCommandEnv = commandEnv emptyPGF -multigrammar = fst . pgfenv +multigrammar = pgf . pgfenv wordCompletion gfenv (left,right) = do case wc_type (reverse left) of |