X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FVarSet.lhs;h=5971964f41f6004caace61d0d09e55046a861e64;hb=6ee7389261b6559c3507b90b9476aa8daf45400c;hp=8cad15e2e80c680a7ec42769c8dde30fe1510f96;hpb=e0d750bedbd33f7a133c8c82c35fd8db537ab649;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/VarSet.lhs b/ghc/compiler/basicTypes/VarSet.lhs
index 8cad15e..5971964 100644
--- a/ghc/compiler/basicTypes/VarSet.lhs
+++ b/ghc/compiler/basicTypes/VarSet.lhs
@@ -7,7 +7,7 @@
 module VarSet (
 	VarSet, IdSet, TyVarSet,
 	emptyVarSet, unitVarSet, mkVarSet,
-	extendVarSet, extendVarSet_C,
+	extendVarSet, extendVarSetList, extendVarSet_C,
 	elemVarSet, varSetElems, subVarSet,
 	unionVarSet, unionVarSets,
 	intersectVarSet, intersectsVarSet,
@@ -42,6 +42,7 @@ unionVarSets	:: [VarSet] -> VarSet
 varSetElems	:: VarSet -> [Var]
 unitVarSet	:: Var -> VarSet
 extendVarSet	:: VarSet -> Var -> VarSet
+extendVarSetList:: VarSet -> [Var] -> VarSet
 elemVarSet	:: Var -> VarSet -> Bool
 delVarSet	:: VarSet -> Var -> VarSet
 delVarSetList	:: VarSet -> [Var] -> VarSet
@@ -62,6 +63,7 @@ delVarSetByKey	:: VarSet -> Unique -> VarSet
 emptyVarSet	= emptyUniqSet
 unitVarSet	= unitUniqSet
 extendVarSet	= addOneToUniqSet
+extendVarSetList= addListToUniqSet
 intersectVarSet	= intersectUniqSets
 
 intersectsVarSet:: VarSet -> VarSet -> Bool 	-- True if non-empty intersection