From 27be51d16abf525a1459f1a00b2a27eb18eaa337 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 20:58:10 +0000
Subject: [PATCH] [project @ 1997-06-05 20:58:10 by sof] new option:
opt_WarnOverlappedPatterns
---
ghc/compiler/main/CmdLineOpts.lhs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/main/CmdLineOpts.lhs b/ghc/compiler/main/CmdLineOpts.lhs
index 8fd3c64e8068..8361737b65e6 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"))
--
GitLab