From: quintela <unknown>
Date: Tue, 2 Dec 1997 18:08:54 +0000 (+0000)
Subject: [project @ 1997-12-02 18:08:54 by quintela]
X-Git-Tag: Approx_2487_patches~1212
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=658b3650867707a3be0a5a2f8e8124421cec348c;p=ghc-hetmet.git

[project @ 1997-12-02 18:08:54 by quintela]
Added -fwarn-simple-patterns option
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 62b2e34..eaf8caf 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -91,7 +91,7 @@ module CmdLineOpts (
 	opt_Verbose,
 	opt_WarnNameShadowing,
 	opt_WarnUnusedNames,
-	opt_WarnIncompletePatterns, opt_WarnOverlappedPatterns,
+	opt_WarnIncompletePatterns, opt_WarnOverlappedPatterns, opt_WarnSimplePatterns,
 	opt_WarnMissingMethods,
 	opt_WarnDuplicateExports,
 	opt_PruneTyDecls, opt_PruneInstDecls,
@@ -350,6 +350,7 @@ opt_UnfoldingKeenessFactor	= lookup_def_float "-funfolding-keeness-factor"	   uN
 opt_WarnNameShadowing		= lookUp  SLIT("-fwarn-name-shadowing")
 opt_WarnIncompletePatterns	= lookUp  SLIT("-fwarn-incomplete-patterns")
 opt_WarnOverlappedPatterns	= lookUp  SLIT("-fwarn-overlapped-patterns")
+opt_WarnSimplePatterns	     	= lookUp  SLIT("-fwarn-simple-patterns")
 opt_WarnUnusedNames		= lookUp  SLIT("-fwarn-unused-names")
 opt_WarnMissingMethods		= lookUp  SLIT("-fwarn-missing-methods")
 opt_WarnDuplicateExports	= lookUp  SLIT("-fwarn-duplicate-exports")