From 48e054cfd5a6146d52e563b717f4efc5bb4ff034 Mon Sep 17 00:00:00 2001 From: Lemmih Date: Tue, 30 Jan 2007 04:00:41 +0000 Subject: [PATCH] Ugly fix to an ugly problem. --- 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 7911b35..64a840c 100644 --- a/src/System/Plugins/Env.hs +++ b/src/System/Plugins/Env.hs @@ -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 --