From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Mon, 9 Nov 2009 13:17:46 +0000 (+0000)
Subject: Track changes to DPH library
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=bb2c9a9211b10f649c61ee9e6c7055af7b3509dc

Track changes to DPH library
---

diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs
index d417898..ce93ad7 100644
--- a/compiler/vectorise/VectBuiltIn.hs
+++ b/compiler/vectorise/VectBuiltIn.hs
@@ -233,7 +233,7 @@ initBuiltins pkg
                           | i <- [2..mAX_DPH_COMBINE]]
       let combinePDVars = listArray (2, mAX_DPH_COMBINE) combines
 
-      scalarClass <- externalClass dph_Scalar (fsLit "Scalar")
+      scalarClass <- externalClass dph_PArray (fsLit "Scalar")
       scalar_map <- externalVar dph_Scalar (fsLit "scalar_map")
       scalar_zip2 <- externalVar dph_Scalar (fsLit "scalar_zipWith")
       scalar_zips <- mapM (externalVar dph_Scalar)