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.
This commit is contained in:
hallgren
2011-08-31 11:18:16 +00:00
parent b743abb375
commit d180dadf08
4 changed files with 20 additions and 23 deletions

View File

@@ -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