X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FBuiltins%2FModules.hs;fp=compiler%2Fvectorise%2FVectorise%2FBuiltins%2FModules.hs;h=82e49bf0db61e9f5c1b1159c91cb8d4abe8530e4;hp=275f271ce8811672641fefcc4787314463bf49ec;hb=b2153822467a86d4da0ccdbd4274741aaa90d81b;hpb=a2230234bcf8c1a40c68c32f0d64d66fdc442073

diff --git a/compiler/vectorise/Vectorise/Builtins/Modules.hs b/compiler/vectorise/Vectorise/Builtins/Modules.hs
index 275f271..82e49bf 100644
--- a/compiler/vectorise/Vectorise/Builtins/Modules.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Modules.hs
@@ -18,7 +18,8 @@ data Modules
         , dph_Instances		:: Module
         , dph_Combinators	:: Module
         , dph_Scalar		:: Module
-        , dph_PData             :: Module
+        , dph_PArray_PData      :: Module
+        , dph_PArray_Scalar     :: Module
         , dph_Prelude_PArr	:: Module
         , dph_Prelude_Int	:: Module
         , dph_Prelude_Word8	:: Module
@@ -40,7 +41,8 @@ dph_Modules pkg
 	, dph_Combinators    = mk (fsLit "Data.Array.Parallel.Lifted.Combinators")
 	, dph_Scalar         = mk (fsLit "Data.Array.Parallel.Lifted.Scalar")
 
-        , dph_PData          = mk (fsLit "Data.Array.Parallel.PArray.PData")
+        , dph_PArray_PData   = mk (fsLit "Data.Array.Parallel.PArray.PData")
+        , dph_PArray_Scalar  = mk (fsLit "Data.Array.Parallel.PArray.Scalar")
 
 	, dph_Prelude_PArr   = mk (fsLit "Data.Array.Parallel.Prelude.Base.PArr")
 	, dph_Prelude_Int    = mk (fsLit "Data.Array.Parallel.Prelude.Base.Int")