From be826f7c126244ba40252ed8b774c6aca8135422 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 27 Jul 2006 15:06:50 +0000 Subject: [PATCH] oops, remove old packages when updating --- utils/ghc-pkg/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 3f8b0b3..b2f7d18 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -401,7 +401,8 @@ registerPackage input defines flags auto_ghci_libs update force = do let pkg = resolveDeps db_stack pkg0 validatePackageConfig pkg db_stack auto_ghci_libs update force - let new_details = snd db_to_operate_on ++ [pkg] + let new_details = filter not_this (snd db_to_operate_on) ++ [pkg] + not_this p = package p /= package pkg savePackageConfig db_filename maybeRestoreOldConfig db_filename $ writeNewConfig db_filename new_details -- 1.7.10.4