diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-14 19:59:13 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-14 19:59:13 +0100 |
| commit | 493ea4ab0bcdfdd99aa08ce3637ab383e1f8fc2d (patch) | |
| tree | 056ca24bd0b716788918d19dbadcb4ae2190a38c /compiler/iface | |
| parent | 9652dab10c20ffbfaa50a56b786d430d62d27411 (diff) | |
| download | haskell-493ea4ab0bcdfdd99aa08ce3637ab383e1f8fc2d.tar.gz | |
Separate the warning flags into their own datatype
The -w flag wasn't turning off a few warnings (Opt_WarnMissingImportList,
Opt_WarnMissingLocalSigs, Opt_WarnIdentities). Rather than just adding
them, I've separated the Opt_Warn* contructors off into their own type,
so -w now just sets the list of warning flags to [].
Diffstat (limited to 'compiler/iface')
| -rw-r--r-- | compiler/iface/MkIface.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index 506268a32a..50406d2fac 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -289,8 +289,8 @@ mkIface_ hsc_env maybe_old_fingerprint intermediate_iface decls -- Warn about orphans - ; let warn_orphs = dopt Opt_WarnOrphans dflags - warn_auto_orphs = dopt Opt_WarnAutoOrphans dflags + ; let warn_orphs = wopt Opt_WarnOrphans dflags + warn_auto_orphs = wopt Opt_WarnAutoOrphans dflags orph_warnings --- Laziness means no work done unless -fwarn-orphans | warn_orphs || warn_auto_orphs = rule_warns `unionBags` inst_warns | otherwise = emptyBag |