[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 (file)
--- 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"))