[commit: ghc] master: Wibbles on modules imported by vectoriser (999857f)

[Ben Lippmeier]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/999857fdfd8fa1b305a94bc54bb1860f5c8896d1

>---------------------------------------------------------------

commit 999857fdfd8fa1b305a94bc54bb1860f5c8896d1
Author: Ben Lippmeier <benl at ouroborus.net>
Date:   Wed May 11 19:00:40 2011 +1000

    Wibbles on modules imported by vectoriser

>---------------------------------------------------------------

 compiler/vectorise/Vectorise/Builtins/Modules.hs |   13 ++++++++-----
 compiler/vectorise/Vectorise/Builtins/Prelude.hs |    1 -
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/compiler/vectorise/Vectorise/Builtins/Modules.hs b/compiler/vectorise/Vectorise/Builtins/Modules.hs
index d828fe8..6ea3595 100644
--- a/compiler/vectorise/Vectorise/Builtins/Modules.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Modules.hs
@@ -13,6 +13,7 @@ data Modules
   = Modules 
   { dph_PArray_Base             :: Module
   , dph_PArray_Scalar           :: Module
+  , dph_PArray_ScalarInstances  :: Module
   , dph_PArray_PRepr            :: Module
   , dph_PArray_PReprInstances   :: Module
   , dph_PArray_PData            :: Module
@@ -24,7 +25,6 @@ data Modules
   , dph_Combinators             :: Module
   , dph_Scalar	                :: Module
 
-  , dph_Prelude_PArr            :: Module
   , dph_Prelude_Int             :: Module
   , dph_Prelude_Word8           :: Module
   , dph_Prelude_Double          :: Module
@@ -39,6 +39,7 @@ dph_Modules pkg
   = Modules 
   { dph_PArray_Base             = mk (fsLit "Data.Array.Parallel.PArray.Base")
   , dph_PArray_Scalar           = mk (fsLit "Data.Array.Parallel.PArray.Scalar")
+  , dph_PArray_ScalarInstances  = mk (fsLit "Data.Array.Parallel.PArray.ScalarInstances")
   , dph_PArray_PRepr            = mk (fsLit "Data.Array.Parallel.PArray.PRepr")
   , dph_PArray_PReprInstances   = mk (fsLit "Data.Array.Parallel.PArray.PReprInstances")
   , dph_PArray_PData            = mk (fsLit "Data.Array.Parallel.PArray.PData")
@@ -50,7 +51,6 @@ dph_Modules pkg
   , dph_Combinators             = mk (fsLit "Data.Array.Parallel.Lifted.Combinators")
   , dph_Scalar                  = mk (fsLit "Data.Array.Parallel.Lifted.Scalar")
 
-  , dph_Prelude_PArr            = mk (fsLit "Data.Array.Parallel.Prelude.Base.PArr")
   , dph_Prelude_Int             = mk (fsLit "Data.Array.Parallel.Prelude.Base.Int")
   , dph_Prelude_Word8           = mk (fsLit "Data.Array.Parallel.Prelude.Base.Word8")
   , dph_Prelude_Double          = mk (fsLit "Data.Array.Parallel.Prelude.Base.Double")
@@ -60,8 +60,11 @@ dph_Modules pkg
   where	mk = mkModule pkg . mkModuleNameFS
 
 
--- | Project out ids of modules that contain orphan instances that we need to load.
 dph_Orphans :: [Modules -> Module]
 dph_Orphans 
- =      [ dph_PArray_PReprInstances
-        , dph_PArray_PDataInstances ]
+ = [ dph_PArray_Scalar
+   , dph_PArray_ScalarInstances
+   , dph_PArray_PReprInstances
+   , dph_PArray_PDataInstances
+   , dph_Scalar
+   ]
diff --git a/compiler/vectorise/Vectorise/Builtins/Prelude.hs b/compiler/vectorise/Vectorise/Builtins/Prelude.hs
index 438bddd..731371e 100644
--- a/compiler/vectorise/Vectorise/Builtins/Prelude.hs
+++ b/compiler/vectorise/Vectorise/Builtins/Prelude.hs
@@ -29,7 +29,6 @@ preludeVars (Modules { dph_Combinators    = _dph_Combinators
                      , dph_Prelude_Word8  = dph_Prelude_Word8
                      , dph_Prelude_Double = dph_Prelude_Double
                      , dph_Prelude_Bool   = dph_Prelude_Bool 
-                     , dph_Prelude_PArr   = _dph_Prelude_PArr
                      })
 
     -- Functions that work on whole PArrays, defined in GHC.PArr