X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FMkIface.lhs;h=de191dec2e43a616b736b07e31c74e0218294534;hb=9d899efe741906ad957cf3ad84122f62c73a9de6;hp=8213cb1a8061886858de9e7825315e47eb000470;hpb=e04f49034968322349e0f3f608e1b5a856fd6521;p=ghc-hetmet.git

diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs
index 8213cb1..de191de 100644
--- a/compiler/iface/MkIface.lhs
+++ b/compiler/iface/MkIface.lhs
@@ -339,18 +339,18 @@ mkIface hsc_env maybe_old_iface
      deliberatelyOmitted x = panic ("Deliberately omitted: " ++ x)
      ifFamInstTcName = ifaceTyConName . ifFamInstTyCon
 
-     flattenVectInfo (VectInfo { vectInfoCCVar   = ccVar
-                               , vectInfoCCTyCon = ccTyCon
+     flattenVectInfo (VectInfo { vectInfoVar   = vVar
+                               , vectInfoTyCon = vTyCon
                                }) = 
        IfaceVectInfo { 
-         ifaceVectInfoCCVar        = [ Var.varName v 
-                                     | (v, _) <- varEnvElts ccVar],
-         ifaceVectInfoCCTyCon      = [ tyConName t 
-                                     | (t, t_CC) <- nameEnvElts ccTyCon
-                                     , t /= t_CC],
-         ifaceVectInfoCCTyConReuse = [ tyConName t
-                                     | (t, t_CC) <- nameEnvElts ccTyCon
-                                     , t == t_CC]
+         ifaceVectInfoVar        = [ Var.varName v 
+                                   | (v, _) <- varEnvElts vVar],
+         ifaceVectInfoTyCon      = [ tyConName t 
+                                   | (t, t_v) <- nameEnvElts vTyCon
+                                   , t /= t_v],
+         ifaceVectInfoTyConReuse = [ tyConName t
+                                   | (t, t_v) <- nameEnvElts vTyCon
+                                   , t == t_v]
        } 
 
 -----------------------------