[project @ 2002-01-25 16:46:53 by simonmar]

[ghc-hetmet.git] / ghc / compiler / ghci / ByteCodeLink.lhs

diff --git a/ghc/compiler/ghci/ByteCodeLink.lhs b/ghc/compiler/ghci/ByteCodeLink.lhs
index fd99f8e..b993aed 100644 (file)
--- a/ghc/compiler/ghci/ByteCodeLink.lhs
+++ b/ghc/compiler/ghci/ByteCodeLink.lhs
@@ -149,8 +149,8 @@ data HValue     = HValue  -- dummy type, actually a pointer to some Real Code.
 -- the command line).
 filterNameMap :: [ModuleName] -> FiniteMap Name a -> FiniteMap Name a
 filterNameMap mods env 
-   = filterFM (\n _ -> isGlobalName n && 
-                       moduleName (nameModule n) `elem` mods) env
+   = filterFM (\n _ -> isGlobalName n 
+                       && moduleName (nameModule n) `elem` mods) env
 \end{code}
 
 %************************************************************************