From: panne <unknown>
Date: Fri, 25 Feb 2000 15:06:30 +0000 (+0000)
Subject: [project @ 2000-02-25 15:06:30 by panne]
X-Git-Tag: Approximately_9120_patches~5097
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5e95eb492a7621f78b54ceffe95490ad1a1f23fb;p=ghc-hetmet.git

[project @ 2000-02-25 15:06:30 by panne]
*ahem*  Re-enable -fwarn-unused-binds and -fwarn-unused-imports...  :-}
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index a064dd6..986a19c 100644
--- 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