X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FdeSugar%2FDsArrows.lhs;h=6568eb13fe0ff393cbb74d9663ebec2f8f9dfd19;hb=ca0b7c66f2e8e50f15a03c406408d9e86455f8eb;hp=42271beced3e7f225089c0195dd50f73c8d09c5e;hpb=69e27f1d9d475a94e61fa54af40ac7be06d872ca;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsArrows.lhs b/ghc/compiler/deSugar/DsArrows.lhs
index 42271be..6568eb1 100644
--- a/ghc/compiler/deSugar/DsArrows.lhs
+++ b/ghc/compiler/deSugar/DsArrows.lhs
@@ -46,7 +46,7 @@ import Outputable
 
 import HsPat		( collectPatBinders, collectPatsBinders )
 import VarSet		( IdSet, mkVarSet, varSetElems,
-			  intersectVarSet, minusVarSet, 
+			  intersectVarSet, minusVarSet, extendVarSetList, 
 			  unionVarSet, unionVarSets, elemVarSet )
 import SrcLoc		( Located(..), unLoc, noLoc, getLoc )
 \end{code}
@@ -705,7 +705,7 @@ dsCmdStmt ids local_vars env_ids out_ids (ExprStmt cmd c_ty)
 		do_compose ids before_c_ty after_c_ty out_ty
 			(do_first ids in_ty1 c_ty out_ty core_cmd) $
 		do_arr ids after_c_ty out_ty snd_fn,
-	      fv_cmd `unionVarSet` mkVarSet out_ids)
+	      extendVarSetList fv_cmd out_ids)
   where
 
 --	A | xs1 |- c :: [] t