[project @ 2000-02-25 15:06:30 by panne]

[ghc-hetmet.git] / ghc / compiler / rename / Rename.lhs

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index a064dd6..986a19c 100644 (file)
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -549,9 +549,9 @@ reportUnusedNames gbl_env avail_env (ExportEnv export_avails _ _) mentioned_name
              nest 4 (fsep (punctuate comma [ text (occNameFlavour (nameOccName n)) <+> ppr n
                                            | n <- non_locally_used]))) `thenRn_`
     getIfacesRn                                                                `thenRn` \ ifaces ->
-    if opt_WarnDeprecations
+    (if opt_WarnDeprecations
        then mapRn_ warnDeprec (deprec_used (iDeprecs ifaces))
-       else returnRn ()                                                `thenRn_`
+       else returnRn ())                                               `thenRn_`
     warnUnusedLocalBinds bad_locals                                    `thenRn_`
     warnUnusedImports bad_imps