Commit be826f7c authored by Simon Marlow's avatar Simon Marlow
Browse files

oops, remove old packages when updating

parent 2847d839
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment