From: sof <unknown>
Date: Thu, 5 Jun 1997 20:58:10 +0000 (+0000)
Subject: [project @ 1997-06-05 20:58:10 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~378
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=27be51d16abf525a1459f1a00b2a27eb18eaa337;p=ghc-hetmet.git

[project @ 1997-06-05 20:58:10 by sof]
new option: opt_WarnOverlappedPatterns
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 8fd3c64..8361737 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -98,7 +98,7 @@ module CmdLineOpts (
 	opt_Verbose,
 	opt_WarnNameShadowing,
 	opt_WarnUnusedNames,
-	opt_WarnIncompletePatterns,
+	opt_WarnIncompletePatterns, opt_WarnOverlappedPatterns,
 	opt_PruneTyDecls, opt_PruneInstDecls,
 	opt_D_show_unused_imports,
 	opt_D_show_rn_stats
@@ -352,6 +352,7 @@ opt_UnfoldingConDiscount	= lookup_def_int "-funfolding-con-discount"	   uNFOLDIN
 opt_LiberateCaseThreshold	= lookup_def_int "-fliberate-case-threshold"	   lIBERATE_CASE_THRESHOLD
 opt_WarnNameShadowing		= lookUp  SLIT("-fwarn-name-shadowing")
 opt_WarnIncompletePatterns	= not (lookUp  SLIT("-fno-warn-incomplete-patterns"))
+opt_WarnOverlappedPatterns	= not (lookUp  SLIT("-fno-warn-overlapped-patterns"))
 opt_WarnUnusedNames		= lookUp  SLIT("-fwarn-unused-names")
 opt_PruneTyDecls		= not (lookUp SLIT("-fno-prune-tydecls"))
 opt_PruneInstDecls		= not (lookUp SLIT("-fno-prune-instdecls"))