From 04db733c4cadb938179df34ac9461e542c8a51f8 Mon Sep 17 00:00:00 2001 From: simonm Date: Wed, 15 Oct 1997 14:09:21 +0000 Subject: [PATCH] [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. --- ghc/compiler/main/CmdLineOpts.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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")) -- 1.7.10.4