diff options
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 13 |
1 files changed, 0 insertions, 13 deletions
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 |