From d180dadf08ddd961cf2a5db68f90223a7d76c232 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 31 Aug 2011 11:18:16 +0000 Subject: 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. --- src/compiler/GF/Compile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Compile.hs') 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 -- cgit v1.2.3