From: sof <unknown>
Date: Fri, 25 Jul 1997 22:59:04 +0000 (+0000)
Subject: [project @ 1997-07-25 22:59:04 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~225
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6982eb1efd430c9aa33ecdcdb5cee87bd7961e49;p=ghc-hetmet.git

[project @ 1997-07-25 22:59:04 by sof]
ppr mods
---

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}