From 98ffa8563083a61a10642772769ef51c8cbbcc5e Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 2 Feb 1998 14:25:33 +0000
Subject: [PATCH] [project @ 1998-02-02 14:25:33 by simonm] Add
-fwarn-unused-toplevel and -fwarn-unused-imports.
---
ghc/compiler/main/CmdLineOpts.lhs | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 6a8e9b4f6d50..9bc8766e597f 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -90,7 +90,11 @@ module CmdLineOpts (
opt_Verbose,
opt_WarnNameShadowing,
opt_WarnUnusedNames,
- opt_WarnIncompletePatterns, opt_WarnOverlappingPatterns, opt_WarnSimplePatterns,
+ opt_WarnUnusedTopLevel,
+ opt_WarnUnusedImports,
+ opt_WarnIncompletePatterns,
+ opt_WarnOverlappingPatterns,
+ opt_WarnSimplePatterns,
opt_WarnMissingMethods,
opt_WarnDuplicateExports,
opt_PruneTyDecls, opt_PruneInstDecls,
@@ -337,6 +341,8 @@ opt_WarnIncompletePatterns = lookUp SLIT("-fwarn-incomplete-patterns")
opt_WarnOverlappingPatterns = lookUp SLIT("-fwarn-overlapping-patterns")
opt_WarnSimplePatterns = lookUp SLIT("-fwarn-simple-patterns")
opt_WarnUnusedNames = lookUp SLIT("-fwarn-unused-names")
+opt_WarnUnusedTopLevel = lookUp SLIT("-fwarn-unused-toplevel")
+opt_WarnUnusedImports = lookUp SLIT("-fwarn-unused-imports")
opt_WarnMissingMethods = lookUp SLIT("-fwarn-missing-methods")
opt_WarnDuplicateExports = lookUp SLIT("-fwarn-duplicate-exports")
opt_PruneTyDecls = not (lookUp SLIT("-fno-prune-tydecls"))
--
GitLab