From 6982eb1efd430c9aa33ecdcdb5cee87bd7961e49 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Jul 1997 22:59:04 +0000
Subject: [PATCH] [project @ 1997-07-25 22:59:04 by sof] ppr mods

---
 ghc/compiler/rename/RnNames.lhs |   15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index c6ca482..9b4abb5 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -128,19 +128,18 @@ checkEarlyExit mod
 	returnRn True
     else
     traceRn (text "Considering whether compilation is required...")	`thenRn_`
-    (if not opt_SourceUnchanged then
+    if not opt_SourceUnchanged then
 	-- Source code changed and no errors yet... carry on 
 	traceRn (nest 4 (text "source file changed or recompilation check turned off"))	`thenRn_` 
 	returnRn False
-     else
+    else
 	-- Unchanged source, and no errors yet; see if usage info
 	-- up to date, and exit if so
-	checkUpToDate mod
-    )									`thenRn` \ up_to_date ->
-    traceRn (text "Hence, compilation" <+> 
-	     text (if up_to_date then "IS NOT" else "IS") <+>
-	     text "required")						`thenRn_`
-    returnRn up_to_date
+	checkUpToDate mod						`thenRn` \ up_to_date ->
+	putDocRn (text "Compilation" <+> 
+	     	  text (if up_to_date then "IS NOT" else "IS") <+>
+		  text "required")					`thenRn_`
+	returnRn up_to_date
 \end{code}
 	
 
-- 
1.7.10.4