oops, filterNameMap was the wrong way around (or I was using wrong).
It should *keep* the named modules, not throw them away.
-- 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}
%************************************************************************