From e50f92c41d2fdfda6d07a1aab0d3e375ab264617 Mon Sep 17 00:00:00 2001 From: hallgren Date: Tue, 11 Aug 2015 16:14:38 +0000 Subject: GF shell: make environment types abstract, comment out some dead code --- src/compiler/GF/Interactive.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Interactive.hs') 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 -- cgit v1.2.3