From 2509cf09915f514d8a77f21c0564137af618af76 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Fri, 14 Dec 2007 23:09:14 +0000 Subject: [PATCH] Fix bug in VectInfo loading --- compiler/iface/TcIface.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4