X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FInteractiveUI.hs;h=282ad93f9092d7ed1ab6c0f97a6ed39f82cd4845;hb=bc882daec931dcde171341f1fee32b45b17cc22e;hp=4a4b8225878c88c8b6ca12c4de5281014aaf11cc;hpb=6bfe1aa048ae13f0a95867773489c5a452f8d28c;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 4a4b822..282ad93 100644
--- 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 ()