Ugly fix to an ugly problem.

This commit is contained in:
Lemmih 2007-01-30 04:00:41 +00:00
parent 9b3069cb3d
commit 48e054cfd5

View File

@ -286,7 +286,7 @@ union ls ps' =
let fm = emptyFM -- new FM for this package.conf
in foldr (\p fm' -> if packageName_ p == "base" -- ghc doesn't supply a version with 'base'
-- for some reason.
then addToFM fm' (packageName_ p) p
then addToFM (addToFM fm' (packageName_ p) p) (packageName p) p
else addToFM fm' (packageName p) p) fm ps' : ls
--