diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-14 21:15:39 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-14 21:15:39 +0000 |
| commit | 5bbb7af7ff683e60d99aaad3b78da034bf80cbc7 (patch) | |
| tree | 8bc36f4d0aa37049f604dfb595ccdf17ac277c34 | |
| parent | 8229db3e921ba5707cd2dceec8381436e2fc4219 (diff) | |
| download | haskell-5bbb7af7ff683e60d99aaad3b78da034bf80cbc7.tar.gz | |
Use the right set of linkables in unload_wkr
| -rw-r--r-- | compiler/ghci/Linker.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 712904dd30..697cbc8d91 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 |