diff options
| author | hallgren <hallgren@chalmers.se> | 2011-08-31 11:18:16 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2011-08-31 11:18:16 +0000 |
| commit | d180dadf08ddd961cf2a5db68f90223a7d76c232 (patch) | |
| tree | ca882ac3d5ea840d0ffc44a7a4503a8b32a9ebbe /src/compiler/GF/Compile.hs | |
| parent | b743abb375bda7a758bbdde8cabe47e3b38b78c9 (diff) | |
GF.Infra.Modules: minor tweaks
Still keeping the modules both in a list and in a finite map. The overhead is
smaller than I initially thought.
Diffstat (limited to 'src/compiler/GF/Compile.hs')
| -rw-r--r-- | src/compiler/GF/Compile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Compile.hs b/src/compiler/GF/Compile.hs index b0c228e53..4ab4a986a 100644 --- a/src/compiler/GF/Compile.hs +++ b/src/compiler/GF/Compile.hs @@ -227,7 +227,7 @@ extendCompileEnvInt (_,gr,menv) k mfile sm = do t <- ioeIO $ getModificationTime file return $ Map.insert mod (t,imps) menv _ -> return menv - return (k,mGrammar (sm:modules gr),menv2) --- reverse later + return (k,prependModule gr sm,menv2) --- reverse later extendCompileEnv e@(k,_,_) file sm = extendCompileEnvInt e k (Just file) sm |