X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fiface%2FTcIface.lhs;h=e116da7075ce09795dca6e017710ce82026da6b0;hb=a8427a4125e9b78e88a487eeabf018f1c6e8bc08;hp=aee313249c9c26be1a5950d52a9b5c745db3564d;hpb=bb6a7d1a735618d7f71e503c14d50d591277c083;p=ghc-hetmet.git

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index aee3132..e116da7 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -628,7 +628,7 @@ tcIfaceVectInfo mod typeEnv (IfaceVectInfo
            ; vDataCons <- mapM vectDataConMapping (tyConDataCons tycon)
            ; return ((name, (tycon, vTycon)),    -- (T, T_v)
                      vDataCons,                  -- list of (Ci, Ci_v)
-                     (name, (tycon, paTycon)),   -- (T, paT)
+                     (vName, (vTycon, paTycon)), -- (T_v, paT)
                      (name, (tycon, isoTycon)))  -- (T, isoT)
            }
     vectTyConReuseMapping name