Fix bug in VectInfo loading

2509cf09 · rl@cse.unsw.edu.au · d8b2f9e9 · 2509cf09
Commit 2509cf09 authored Dec 14, 2007 by rl@cse.unsw.edu.au
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -604,7 +604,7 @@ tcIfaceVectInfo mod typeEnv (IfaceVectInfo
                             })
  = do { vVars     <- mapM vectVarMapping vars
       ; tyConRes1 <- mapM vectTyConMapping      tycons
-       ; tyConRes2 <- mapM vectTyConReuseMapping tycons
+       ; tyConRes2 <- mapM vectTyConReuseMapping tyconsReuse
       ; let (vTyCons, vDataCons, vPAs, vIsos) = unzip4 (tyConRes1 ++ tyConRes2)
       ; return $ VectInfo 
                  { vectInfoVar     = mkVarEnv  vVars