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 6a8e9b4..9bc8766 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"))
-- 
1.7.10.4