X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Ftypes%2FCoercion.lhs;h=fb91a0de67d9d14d63e8e9d637e903c04e37aaee;hb=feb584b7ffd49827ff2b6e716965cfdcd344570e;hp=3e1d071025339708086fec5922e16f76ee1ffbb9;hpb=6791ad226806d7b4e7618c91516e9e20be882813;p=ghc-hetmet.git

diff --git a/compiler/types/Coercion.lhs b/compiler/types/Coercion.lhs
index 3e1d071..fb91a0d 100644
--- a/compiler/types/Coercion.lhs
+++ b/compiler/types/Coercion.lhs
@@ -340,10 +340,10 @@ mkDataInstCoercion name tvs family instTys rep_tycon
   where
     coArity = length tvs
 
-    rule args = (substTyWith tvs tys $		      -- with sigma = [tys/tvs]
-		   TyConApp family instTys,	      --       sigma (F ts)
-		 TyConApp rep_tycon (mkTyVarTys tvs), --   :=: R tys
-		 rest)				      -- surplus arguments
+    rule args = (substTyWith tvs tys $		     -- with sigma = [tys/tvs],
+		   TyConApp family instTys,	     --       sigma (F ts)
+		 TyConApp rep_tycon tys,	     --   :=: R tys
+		 rest)				     -- surplus arguments
       where
         tys  = take coArity args
         rest = drop coArity args