projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cd7f4d5
)
[project @ 1997-07-25 22:59:04 by sof]
author
sof
<unknown>
Fri, 25 Jul 1997 22:59:04 +0000
(22:59 +0000)
committer
sof
<unknown>
Fri, 25 Jul 1997 22:59:04 +0000
(22:59 +0000)
ppr mods
ghc/compiler/rename/RnNames.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnNames.lhs
b/ghc/compiler/rename/RnNames.lhs
index
c6ca482
..
9b4abb5
100644
(file)
--- 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_`
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
-- 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
-- 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}
\end{code}