From 5bbb7af7ff683e60d99aaad3b78da034bf80cbc7 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 14 Jun 2008 21:15:39 +0000 Subject: [PATCH] Use the right set of linkables in unload_wkr --- compiler/ghci/Linker.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4