From 1acd230b9478d04d0b2fde65392af3621f20a59b Mon Sep 17 00:00:00 2001
From: lemmih <lemmih@gmail.com>
Date: Fri, 23 Sep 2005 16:12:24 +0000
Subject: [PATCH] Let new package dbs take precedence over old ones.

---
 src/System/Plugins/Env.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/System/Plugins/Env.hs b/src/System/Plugins/Env.hs
index 0198932..658bf7b 100644
--- 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