From 5e95eb492a7621f78b54ceffe95490ad1a1f23fb Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Fri, 25 Feb 2000 15:06:30 +0000
Subject: [PATCH] [project @ 2000-02-25 15:06:30 by panne] *ahem* Re-enable
-fwarn-unused-binds and -fwarn-unused-imports... :-}
---
ghc/compiler/rename/Rename.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index a064dd685787..986a19ceed55 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
--
GitLab