From: simonmar <unknown>
Date: Tue, 6 Feb 2001 14:01:22 +0000 (+0000)
Subject: [project @ 2001-02-06 14:01:22 by simonmar]
X-Git-Tag: Approximately_9120_patches~2731
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=041211f0f831d666b9841ce447d6a9976e1f943d;p=ghc-hetmet.git

[project @ 2001-02-06 14:01:22 by simonmar]
oops, filterNameMap was the wrong way around (or I was using wrong).
It should *keep* the named modules, not throw them away.
---

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index 39e36fb..dce5253 100644
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -113,8 +113,7 @@ data HValue     = HValue  -- dummy type, actually a pointer to some Real Code.
 -- remove all entries for a given set of modules from the environment
 filterNameMap :: [ModuleName] -> FiniteMap Name a -> FiniteMap Name a
 filterNameMap mods env 
-   = filterFM (\n _ -> moduleName (nameModule n) `notElem` mods) env
-
+   = filterFM (\n _ -> moduleName (nameModule n) `elem` mods) env
 \end{code}
 
 %************************************************************************