X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcExpr.lhs;h=0ac873ef04357e75ad641c9d8793cce602163a10;hb=4349893026e658316e35a0bdf0a08d49d45366c9;hp=960304b86e865bf8d05e7c12cda6da529afafde3;hpb=d386e0d20c6953b7cba4d53538a1782c4aa9980d;p=ghc-hetmet.git

diff --git a/compiler/typecheck/TcExpr.lhs b/compiler/typecheck/TcExpr.lhs
index 960304b..0ac873e 100644
--- a/compiler/typecheck/TcExpr.lhs
+++ b/compiler/typecheck/TcExpr.lhs
@@ -749,7 +749,7 @@ instFun orig fun subst tv_theta_prs
 	; go True fun ty_theta_prs' }
   where
     subst_pr (tvs, theta) 
-	= (map (substTyVar subst) tvs, substTheta subst theta)
+	= (substTyVars subst tvs, substTheta subst theta)
 
     go _ fun [] = return fun