From 2b0496812b16d3ce91c02455e497cb5eae5e397d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 25 Sep 2002 15:36:50 +0000
Subject: [PATCH] [project @ 2002-09-25 15:36:50 by sof] fix logic in prev.
 commit

---
 ghc/compiler/rename/RnBinds.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
1.7.10.4