Let new package dbs take precedence over old ones.
This commit is contained in:
parent
e2ab337ab7
commit
1acd230b94
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user