From: sof <unknown>
Date: Wed, 25 Sep 2002 15:36:50 +0000 (+0000)
Subject: [project @ 2002-09-25 15:36:50 by sof]
X-Git-Tag: Approx_11550_changesets_converted~1634
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2b0496812b16d3ce91c02455e497cb5eae5e397d;p=ghc-hetmet.git

[project @ 2002-09-25 15:36:50 by sof]
fix logic in prev. commit
---

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index b176693..070abda 100644
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -164,7 +164,7 @@ rnTopMonoBinds mbinds sigs
 	-- (This is important when renaming bindings from 'deriving' clauses.)
     getModeRn						`thenM` \ mode ->
     doptM Opt_WarnMissingSigs 				`thenM` \ warn_missing_sigs ->
-    (if not (isInterfaceMode mode && warn_missing_sigs) then
+    (if warn_missing_sigs && not (isInterfaceMode mode) then
 	let
 	    type_sig_vars   = [n | Sig n _ _ <- siglist]
 	    un_sigd_binders = nameSetToList (delListFromNameSet bndr_name_set type_sig_vars)