From: panne <unknown>
Date: Sat, 14 May 2005 09:59:32 +0000 (+0000)
Subject: [project @ 2005-05-14 09:59:32 by panne]
X-Git-Tag: Initial_conversion_from_CVS_complete~554
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=bc882daec931dcde171341f1fee32b45b17cc22e

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

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 ()