projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2847d83
)
oops, remove old packages when updating
author
Simon Marlow
<simonmar@microsoft.com>
Thu, 27 Jul 2006 15:06:50 +0000
(15:06 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Thu, 27 Jul 2006 15:06:50 +0000
(15:06 +0000)
utils/ghc-pkg/Main.hs
patch
|
blob
|
history
diff --git
a/utils/ghc-pkg/Main.hs
b/utils/ghc-pkg/Main.hs
index
3f8b0b3
..
b2f7d18
100644
(file)
--- 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 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
savePackageConfig db_filename
maybeRestoreOldConfig db_filename $
writeNewConfig db_filename new_details