X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FVarSet.lhs;h=8cad15e2e80c680a7ec42769c8dde30fe1510f96;hb=49c120b93b0688863d46582eee6b20bfbed6c077;hp=a3c55f4f6df71aee10ad2122fad8393244e22e08;hpb=0ea915596dc9328a0509d4b43a00b0a47ffb6d6a;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/VarSet.lhs b/ghc/compiler/basicTypes/VarSet.lhs
index a3c55f4..8cad15e 100644
--- a/ghc/compiler/basicTypes/VarSet.lhs
+++ b/ghc/compiler/basicTypes/VarSet.lhs
@@ -11,7 +11,7 @@ module VarSet (
 	elemVarSet, varSetElems, subVarSet,
 	unionVarSet, unionVarSets,
 	intersectVarSet, intersectsVarSet,
-	isEmptyVarSet, delVarSet, delVarSetByKey,
+	isEmptyVarSet, delVarSet, delVarSetList, delVarSetByKey,
 	minusVarSet, foldVarSet, filterVarSet,
 	lookupVarSet, mapVarSet, sizeVarSet, seqVarSet
     ) where
@@ -44,6 +44,7 @@ unitVarSet	:: Var -> VarSet
 extendVarSet	:: VarSet -> Var -> VarSet
 elemVarSet	:: Var -> VarSet -> Bool
 delVarSet	:: VarSet -> Var -> VarSet
+delVarSetList	:: VarSet -> [Var] -> VarSet
 minusVarSet	:: VarSet -> VarSet -> VarSet
 isEmptyVarSet	:: VarSet -> Bool
 mkVarSet	:: [Var] -> VarSet
@@ -74,6 +75,7 @@ varSetElems	= uniqSetToList
 elemVarSet	= elementOfUniqSet
 minusVarSet	= minusUniqSet
 delVarSet	= delOneFromUniqSet
+delVarSetList	= delListFromUniqSet
 isEmptyVarSet	= isEmptyUniqSet
 mkVarSet	= mkUniqSet
 foldVarSet	= foldUniqSet