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 :: PkgEnvs -> [PackageConfig] -> PkgEnvs
|
||||||
union ls ps' =
|
union ls ps' =
|
||||||
let fm = emptyFM -- new FM for this package.conf
|
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
|
-- | generate a PkgEnv from the system package.conf
|
||||||
|
Loading…
x
Reference in New Issue
Block a user