Let new package dbs take precedence over old ones.

2005-09-23 16:12:24 +00:00 · 2005-09-23 16:12:24 +00:00 · 1acd230b94
commit 1acd230b94
parent e2ab337ab7
1 changed files with 1 additions and 1 deletions
--- a/src/System/Plugins/Env.hs
+++ b/src/System/Plugins/Env.hs
@ -277,7 +277,7 @@ addPkgConf f = do
 union :: PkgEnvs -> [PackageConfig] -> PkgEnvs
 union ls ps' = 
        let fm = emptyFM -- new FM for this package.conf
-        in ls ++ [foldr (\p fm' -> addToFM fm' (packageName p) p) fm ps']
+        in foldr (\p fm' -> addToFM fm' (packageName p) p) fm ps' : ls

 -- 
 -- | generate a PkgEnv from the system package.conf