From 8e71d5082f618e97db1c82dede313367c386891b Mon Sep 17 00:00:00 2001
From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 8 Aug 2007 01:48:59 +0000
Subject: [PATCH] Add built-in PA dictionary for closures

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

diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs
index 07293be..06fc542 100644
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -54,7 +54,8 @@ mkNDPVarFS fs = mkRdrQual nDP_BUILTIN (mkVarOccFS fs)
 
 builtin_PAs :: [(Name, RdrName)]
 builtin_PAs = [
-                mk intTyConName FSLIT("dPA_Int")
+                mk closureTyConName FSLIT("dPA_Clo")
+              , mk intTyConName     FSLIT("dPA_Int")
               ]
               ++ tups
   where
-- 
1.7.10.4