From: simonpj <unknown>
Date: Tue, 16 Dec 2003 16:19:04 +0000 (+0000)
Subject: [project @ 2003-12-16 16:19:04 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~192
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=172dd51c1d53dd9d2550e1c10c30de945f81a2d8;p=ghc-hetmet.git

[project @ 2003-12-16 16:19:04 by simonpj]
Rule selection test was exactly backwards
---

diff --git a/ghc/compiler/iface/TcIface.lhs b/ghc/compiler/iface/TcIface.lhs
index 8c45b69..51bf028 100644
--- a/ghc/compiler/iface/TcIface.lhs
+++ b/ghc/compiler/iface/TcIface.lhs
@@ -586,7 +586,7 @@ selectRules (Pool rules n_in n_out) type_env
 	| null gates' = (pool, rule:if_rules)
 	| otherwise   = ((gates',rule) : pool, if_rules)
 	where
-	  gates' = filter (`elemNameEnv` type_env) gates
+	  gates' = filter (not . (`elemNameEnv` type_env)) gates
 
 
 tcIfaceRule :: IfaceRule -> IfL IdCoreRule