X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise.hs;h=31defa540e02d2136abec4342ad1e9ca4711c9b1;hp=d074092c0f7e53b926f057189b97e5ad1a320089;hb=f0b92c4d4ff0584faa4dc8817f59dd5ddbda96a9;hpb=2ee66b7b925ac2dfd825d6ba5ff178411487ccc5

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