From 5e95eb492a7621f78b54ceffe95490ad1a1f23fb Mon Sep 17 00:00:00 2001 From: panne 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 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 -- 1.7.10.4