X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsUtils.lhs;h=07cbe0b249279e78b7049369e09e04a2da175679;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=b58c6d5ebc2cd4bb6660ac054b60658feb22fae4;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsUtils.lhs b/ghc/compiler/deSugar/DsUtils.lhs
index b58c6d5..07cbe0b 100644
--- a/ghc/compiler/deSugar/DsUtils.lhs
+++ b/ghc/compiler/deSugar/DsUtils.lhs
@@ -42,7 +42,7 @@ import PrelInfo		( stringTy )
 import Id		( idType, getInstantiatedDataConSig, mkTupleCon,
 			  DataCon(..), DictVar(..), Id(..), GenId )
 import TyCon		( mkTupleTyCon )
-import Type		( mkTyVarTy, mkRhoTy, mkFunTys,
+import Type		( mkTyVarTys, mkRhoTy, mkFunTys,
 			  applyTyCon, getAppDataTyCon )
 import UniqSet		( mkUniqSet, minusUniqSet, uniqSetToList, UniqSet(..) )
 import Util		( panic, assertPanic )
@@ -400,7 +400,7 @@ mkTupleBind tyvars dicts local_global_prs tuple_expr
     globals = [global | (local,global) <- local_global_prs]
 
     no_of_binders = length local_global_prs
-    tyvar_tys = map mkTyVarTy tyvars
+    tyvar_tys = mkTyVarTys tyvars
 
     tuple_var_ty :: Type
     tuple_var_ty