From: simonm <unknown>
Date: Wed, 15 Oct 1997 14:09:21 +0000 (+0000)
Subject: [project @ 1997-10-15 14:09:21 by simonm]
X-Git-Tag: Approx_2487_patches~1379
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=04db733c4cadb938179df34ac9461e542c8a51f8;p=ghc-hetmet.git

[project @ 1997-10-15 14:09:21 by simonm]
reverse the sense of -fwarn-incomplete-patterns and
-fwarn-overlapped-patterns, these are now added automatically by the
driver if necessary.
---

diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index d1fe78a..a2e616c 100644
--- a/ghc/compiler/main/CmdLineOpts.lhs
+++ b/ghc/compiler/main/CmdLineOpts.lhs
@@ -348,8 +348,8 @@ 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_WarnIncompletePatterns	= lookUp  SLIT("-fwarn-incomplete-patterns")
+opt_WarnOverlappedPatterns	= lookUp  SLIT("-fwarn-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"))