X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=21d2fb3121132a8537863c75d4573c2c487345e0;hb=4287edeb7f329529149d8c95597d5e418388265f;hp=53a9a59ecc1972a4304f634d6ce1ec06f8606c75;hpb=49c98d143c382a1341e1046f5ca00819a25691ba;p=ghc-hetmet.git

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 53a9a59..21d2fb3 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -1010,8 +1010,11 @@ bindIfaceTyVars bndrs thing_inside
     (occs,kinds) = unzip bndrs
 
 mk_iface_tyvar :: Name -> IfaceKind -> IfL TyVar
-mk_iface_tyvar name ifKind = do { kind <- tcIfaceType ifKind
-                                ; return (Var.mkTyVar name kind)
-                                }
+mk_iface_tyvar name ifKind
+   = do { kind <- tcIfaceType ifKind
+	; if isCoercionKind kind then 
+		return (Var.mkCoVar name kind)
+	  else
+		return (Var.mkTyVar name kind) }
 \end{code}