[project @ 2005-05-14 09:59:32 by panne]

[ghc-hetmet.git] / ghc / compiler / ghci / InteractiveUI.hs

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 4a4b822..282ad93 100644 (file)
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -764,8 +764,8 @@ checkModule m = do
                    (local,global) = partition ((== modl) . GHC.nameModule) scope
                in
                        (text "global names: " <+> ppr global) $$
-                        text "local  names: " <+> ppr local))
-          _ -> empty
+                       (text "local  names: " <+> ppr local)
+          _ -> empty))
   afterLoad (successIf (isJust result)) session
 
 reloadModule :: String -> GHCi ()