Update vectoriser now that PRepr has moved

[ghc-hetmet.git] / compiler / vectorise / Vectorise / Builtins / Modules.hs

diff --git a/compiler/vectorise/Vectorise/Builtins/Modules.hs b/compiler/vectorise/Vectorise/Builtins/Modules.hs
index 82e49bf..f562d5c 100644 (file)
--- a/compiler/vectorise/Vectorise/Builtins/Modules.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Modules.hs
@@ -18,8 +18,9 @@ data Modules
         , dph_Instances                :: Module
         , dph_Combinators      :: Module
         , dph_Scalar           :: Module
         , dph_Instances                :: Module
         , dph_Combinators      :: Module
         , dph_Scalar           :: Module

-        , dph_PArray_PData      :: Module

         , dph_PArray_Scalar     :: Module
         , dph_PArray_Scalar     :: Module

+        , dph_PArray_PRepr      :: Module
+        , dph_PArray_PData      :: Module

         , dph_Prelude_PArr     :: Module
         , dph_Prelude_Int      :: Module
         , dph_Prelude_Word8    :: Module
         , dph_Prelude_PArr     :: Module
         , dph_Prelude_Int      :: Module
         , dph_Prelude_Word8    :: Module

@@ -41,8 +42,9 @@ dph_Modules pkg
        , dph_Combinators    = mk (fsLit "Data.Array.Parallel.Lifted.Combinators")
        , dph_Scalar         = mk (fsLit "Data.Array.Parallel.Lifted.Scalar")
 
        , dph_Combinators    = mk (fsLit "Data.Array.Parallel.Lifted.Combinators")
        , dph_Scalar         = mk (fsLit "Data.Array.Parallel.Lifted.Scalar")
 

-        , dph_PArray_PData   = mk (fsLit "Data.Array.Parallel.PArray.PData")

         , dph_PArray_Scalar  = mk (fsLit "Data.Array.Parallel.PArray.Scalar")
         , dph_PArray_Scalar  = mk (fsLit "Data.Array.Parallel.PArray.Scalar")

+        , dph_PArray_PRepr   = mk (fsLit "Data.Array.Parallel.PArray.PRepr")
+        , dph_PArray_PData   = mk (fsLit "Data.Array.Parallel.PArray.PData")

 
        , dph_Prelude_PArr   = mk (fsLit "Data.Array.Parallel.Prelude.Base.PArr")
        , dph_Prelude_Int    = mk (fsLit "Data.Array.Parallel.Prelude.Base.Int")
 
        , dph_Prelude_PArr   = mk (fsLit "Data.Array.Parallel.Prelude.Base.PArr")
        , dph_Prelude_Int    = mk (fsLit "Data.Array.Parallel.Prelude.Base.Int")