From: Ian Lynagh <igloo@earth.li>
Date: Sat, 14 Jun 2008 21:15:39 +0000 (+0000)
Subject: Use the right set of linkables in unload_wkr
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=5bbb7af7ff683e60d99aaad3b78da034bf80cbc7

Use the right set of linkables in unload_wkr
---

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index 712904d..697cbc8 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -901,7 +901,7 @@ unload_wkr dflags linkables pls
   where
     maybeUnload :: [Linkable] -> Linkable -> IO Bool
     maybeUnload keep_linkables lnk
-      | linkableInSet lnk linkables = return True
+      | linkableInSet lnk keep_linkables = return True
       | otherwise		    
       = do mapM_ unloadObj [f | DotO f <- linkableUnlinked lnk]
 		-- The components of a BCO linkable may contain