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