diff options
| author | krasimir <krasimir@chalmers.se> | 2008-04-25 15:50:54 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-04-25 15:50:54 +0000 |
| commit | d4832b4eeb192b10f096366d1bd3e8ea35a51413 (patch) | |
| tree | 3c71efb57f5797e38fd0e01365b5f7f1efdedcb5 /src/GF/Devel/Compile.hs | |
| parent | 46c9a500df0b893aed46c17fbb487bec8e5940c3 (diff) | |
completely rewriten readFiles implementation. Much simpler and more efficient
Diffstat (limited to 'src/GF/Devel/Compile.hs')
| -rw-r--r-- | src/GF/Devel/Compile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Devel/Compile.hs b/src/GF/Devel/Compile.hs index 69062457a..36bee5f2a 100644 --- a/src/GF/Devel/Compile.hs +++ b/src/GF/Devel/Compile.hs @@ -30,6 +30,7 @@ import GF.Devel.Arch import Control.Monad import System.Directory import System.FilePath +import qualified Data.Map as Map batchCompile :: Options -> [FilePath] -> IOE SourceGrammar batchCompile opts files = do @@ -72,7 +73,7 @@ compileModule opts1 env file = do let ioeIOIf = if oElem beVerbose opts then ioeIO else (const (return ())) ioeIOIf $ putStrLn $ "module search path:" +++ show ps ---- let sgr = snd env - let rfs = [] ---- files already in memory and their read times + let rfs = Map.empty ---- files already in memory and their read times let file' = if useFileOpt then takeFileName file else file -- to find file itself files <- getAllFiles opts ps rfs file' ioeIOIf $ putStrLn $ "files to read:" +++ show files ---- |