X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FVarSet.lhs;h=55e82a8515ae17871946e676343a1ed94dbeb249;hb=c5b03909e7c630a874f6f1abf76d28baf4b19d55;hp=5971964f41f6004caace61d0d09e55046a861e64;hpb=ca0b7c66f2e8e50f15a03c406408d9e86455f8eb;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/VarSet.lhs b/ghc/compiler/basicTypes/VarSet.lhs
index 5971964..55e82a8 100644
--- a/ghc/compiler/basicTypes/VarSet.lhs
+++ b/ghc/compiler/basicTypes/VarSet.lhs
@@ -13,7 +13,8 @@ module VarSet (
 	intersectVarSet, intersectsVarSet,
 	isEmptyVarSet, delVarSet, delVarSetList, delVarSetByKey,
 	minusVarSet, foldVarSet, filterVarSet,
-	lookupVarSet, mapVarSet, sizeVarSet, seqVarSet
+	lookupVarSet, mapVarSet, sizeVarSet, seqVarSet,
+	elemVarSetByKey
     ) where
 
 #include "HsVersions.h"
@@ -59,6 +60,7 @@ filterVarSet	:: (Var -> Bool) -> VarSet -> VarSet
 extendVarSet_C  :: (Var->Var->Var) -> VarSet -> Var -> VarSet
 
 delVarSetByKey	:: VarSet -> Unique -> VarSet
+elemVarSetByKey :: Unique -> VarSet -> Bool
 
 emptyVarSet	= emptyUniqSet
 unitVarSet	= unitUniqSet
@@ -87,6 +89,7 @@ sizeVarSet	= sizeUniqSet
 filterVarSet	= filterUniqSet
 extendVarSet_C combine s x = addToUFM_C combine s x x
 delVarSetByKey	= delFromUFM_Directly	-- Can't be bothered to add this to UniqSet
+elemVarSetByKey	= elemUniqSet_Directly
 \end{code}
 
 \begin{code}