From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 30 Sep 2009 08:43:58 +0000 (+0000)
Subject: Replace a checking `is_elem` with a plain `elem`
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=81b5698d13d6c4b99ad85dfc2c0fdfafd7a469dd

Replace a checking `is_elem` with a plain `elem`
This one complains sometimes, but there's no good way to improve it.
---

diff --git a/compiler/codeGen/CgClosure.lhs b/compiler/codeGen/CgClosure.lhs
index 000f977..905f962 100644
--- a/compiler/codeGen/CgClosure.lhs
+++ b/compiler/codeGen/CgClosure.lhs
@@ -155,8 +155,7 @@ cgRhsClosure bndr cc bndr_info fvs upd_flag args body = do
 	-- Node points to it...
     let
 	name 	     = idName bndr
-	is_elem	     = isIn "cgRhsClosure"
-	bndr_is_a_fv = bndr `is_elem` fvs
+	bndr_is_a_fv = bndr `elem` fvs
 	reduced_fvs | bndr_is_a_fv = fvs `minusList` [bndr]
 		    | otherwise	   = fvs