From 58d34eca14d02e6bb388521954938824bb0c8079 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 21 Sep 2007 07:37:47 +0000
Subject: gfc --make now works

---
 src/GF/Devel/Compile.hs | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

(limited to 'src/GF/Devel/Compile.hs')

diff --git a/src/GF/Devel/Compile.hs b/src/GF/Devel/Compile.hs
index 0649760fe..916cb961e 100644
--- a/src/GF/Devel/Compile.hs
+++ b/src/GF/Devel/Compile.hs
@@ -9,8 +9,6 @@ import GF.Compile.Update
 import GF.Grammar.Lookup
 import GF.Infra.Modules
 import GF.Devel.ReadFiles
---import GF.Compile.ShellState
---import GF.Compile.MkResource
 
 -- the main compiler passes
 import GF.Devel.GetGrammar
@@ -21,17 +19,8 @@ import GF.Grammar.Refresh
 import GF.Compile.CheckGrammar
 import GF.Compile.Optimize
 import GF.Compile.Evaluate ----
---import GF.Compile.GrammarToCanon
---import GF.Compile.GrammarToGFCC -----
 --import GF.Canon.Share
 --import GF.Canon.Subexpressions (elimSubtermsMod,unSubelimModule)
---import GF.UseGrammar.Linear (unoptimizeCanonMod) ----
-
---import qualified GF.Canon.CanonToGrammar as CG
-
---import qualified GF.Canon.GFC as GFC
---import qualified GF.Canon.MkGFC as MkGFC
---import GF.Canon.GetGFC
 
 import GF.Data.Operations
 import GF.Devel.UseIO
@@ -84,8 +73,8 @@ compileModule opts1 env file = do
   return e
 
 compileEnvShSt :: CompileEnv -> [ModName] -> CompileEnv
-compileEnvShSt env@(_,sgr) fs = (0,sgr) where
-  sgr = MGrammar [m | m@(i,_) <- modules sgr, notElem (prt i) $ map fileBody fs]
+compileEnvShSt env@(_,sgr) fs = (0,sgr2) where
+  sgr2 = MGrammar [m | m@(i,_) <- modules sgr, notElem (prt i) $ map fileBody fs]
 
 compileOne :: Options -> CompileEnv -> FullPath -> IOE CompileEnv
 compileOne opts env@(_,srcgr) file = do
-- 
cgit v1.2.3