X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fspecialise%2FSpecialise.lhs;fp=ghc%2Fcompiler%2Fspecialise%2FSpecialise.lhs;h=8bacb9e862cb81f7dc782230ccdb61995891fe31;hb=ca0b7c66f2e8e50f15a03c406408d9e86455f8eb;hp=006e06d15e99605149e8463bec211c4137f20b67;hpb=69e27f1d9d475a94e61fa54af40ac7be06d872ca;p=ghc-hetmet.git

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index 006e06d..8bacb9e 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -1105,7 +1105,7 @@ splitUDs bndrs uds@(MkUD {dict_binds = orig_dbs,
     dump_db (free_dbs, dump_dbs, dump_idset) db@(bind, fvs)
 	| dump_idset `intersectsVarSet` fvs	-- Dump it
 	= (free_dbs, dump_dbs `snocBag` db,
-	   dump_idset `unionVarSet` mkVarSet (bindersOf bind))
+	   extendVarSetList dump_idset (bindersOf bind))
 
 	| otherwise	-- Don't dump it
 	= (free_dbs `snocBag` db, dump_dbs, dump_idset)