From f0b92c4d4ff0584faa4dc8817f59dd5ddbda96a9 Mon Sep 17 00:00:00 2001
From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Tue, 21 Aug 2007 02:45:29 +0000
Subject: [PATCH 1/1] Get the PA dictionary for closures from the right module

---
 compiler/vectorise/Vectorise.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index d074092..31defa5 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -47,7 +47,7 @@ import Control.Monad        ( liftM, liftM2, zipWithM, mapAndUnzipM )
 
 builtin_PAs :: [(Name, Module, FastString)]
 builtin_PAs = [
-                mk closureTyConName FSLIT("dPA_Clo")
+                (closureTyConName, nDP_CLOSURE, FSLIT("dPA_Clo"))
               , mk intTyConName     FSLIT("dPA_Int")
               ]
               ++ tups
-- 
1.7.10.4