From 096c861fb4cb7feba5db4752da029c639527b3b3 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 12 Aug 2004 09:02:00 +0000
Subject: fixes for Janna

---
 src/GF/Compile/Compile.hs | 13 -------------
 1 file changed, 13 deletions(-)

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

diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index 5dd4d3345..b0f9bb581 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -73,9 +73,6 @@ compileModule opts st0 file |
   let mods = modules grammar1
   let env = compileEnvShSt st0 []
   foldM (comp putp path) env mods
-----  (_,sgr,cgr) <- foldM (comp putp path) env mods
-----  return $ (reverseModules cgr,       -- to preserve dependency order
-----            (reverseModules sgr,[]))
  where
    suff = fileSuffix file
    comp putp path env sm0 = do
@@ -110,16 +107,6 @@ compileModule opts1 st0 file = do
   maybe (return ()) putStrLnE mm
   return e
 
-{- ----
-  (_,sgr,cgr) <- foldM (compileOne opts) env0 files
-  t <- ioeIO getNowTime
-  return $ (reverseModules cgr,       -- to preserve dependency order
-            (reverseModules sgr, --- keepResModules opts sgr, --- keep all so far
-             [(justModuleName f,t) | f <- files]   -- pass on the time of reading
-          ++ [(resModName (justModuleName f),t)    -- also #file if file.(gf|gfr)
-                                   | f <- files, not (isGFC f)]))
--}
-
 getReadTimes file = do
   t <- ioeIO getNowTime
   let m = justModuleName file
-- 
cgit v1.2.3