2 -- | Modules that contain builtin functions used by the vectoriser.
3 module Vectorise.Builtins.Modules
11 -- | Ids of the modules that contain our DPH builtins.
14 { dph_PArray :: Module
16 , dph_Closure :: Module
17 , dph_Unboxed :: Module
18 , dph_Instances :: Module
19 , dph_Combinators :: Module
20 , dph_Scalar :: Module
21 , dph_Prelude_PArr :: Module
22 , dph_Prelude_Int :: Module
23 , dph_Prelude_Word8 :: Module
24 , dph_Prelude_Double :: Module
25 , dph_Prelude_Bool :: Module
26 , dph_Prelude_Tuple :: Module
30 -- | The locations of builtins in the current DPH library.
31 dph_Modules :: PackageId -> Modules
34 { dph_PArray = mk (fsLit "Data.Array.Parallel.Lifted.PArray")
35 , dph_Repr = mk (fsLit "Data.Array.Parallel.Lifted.Repr")
36 , dph_Closure = mk (fsLit "Data.Array.Parallel.Lifted.Closure")
37 , dph_Unboxed = mk (fsLit "Data.Array.Parallel.Lifted.Unboxed")
38 , dph_Instances = mk (fsLit "Data.Array.Parallel.Lifted.Instances")
39 , dph_Combinators = mk (fsLit "Data.Array.Parallel.Lifted.Combinators")
40 , dph_Scalar = mk (fsLit "Data.Array.Parallel.Lifted.Scalar")
42 , dph_Prelude_PArr = mk (fsLit "Data.Array.Parallel.Prelude.Base.PArr")
43 , dph_Prelude_Int = mk (fsLit "Data.Array.Parallel.Prelude.Base.Int")
44 , dph_Prelude_Word8 = mk (fsLit "Data.Array.Parallel.Prelude.Base.Word8")
45 , dph_Prelude_Double = mk (fsLit "Data.Array.Parallel.Prelude.Base.Double")
46 , dph_Prelude_Bool = mk (fsLit "Data.Array.Parallel.Prelude.Base.Bool")
47 , dph_Prelude_Tuple = mk (fsLit "Data.Array.Parallel.Prelude.Base.Tuple")
49 where mk = mkModule pkg . mkModuleNameFS
52 -- | Project out ids of modules that contain orphan instances that we need to load.
53 dph_Orphans :: [Modules -> Module]
54 dph_Orphans = [dph_Repr, dph_Instances]