From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Fri, 14 Dec 2007 23:09:14 +0000 (+0000)
Subject: Fix bug in VectInfo loading
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2509cf09915f514d8a77f21c0564137af618af76

Fix bug in VectInfo loading
---

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 9345208..db8c4fb 100644
--- 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