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_Base :: Module
15 , dph_PArray_Scalar :: Module
16 , dph_PArray_ScalarInstances :: Module
17 , dph_PArray_PRepr :: Module
18 , dph_PArray_PReprInstances :: Module
19 , dph_PArray_PData :: Module
20 , dph_PArray_PDataInstances :: Module
21 , dph_PArray_Types :: Module
23 , dph_Closure :: Module
24 , dph_Unboxed :: Module
25 , dph_Combinators :: Module
26 , dph_Scalar :: Module
28 , dph_Prelude_Int :: Module
29 , dph_Prelude_Word8 :: Module
30 , dph_Prelude_Double :: Module
31 , dph_Prelude_Bool :: Module
32 , dph_Prelude_Tuple :: Module
36 -- | The locations of builtins in the current DPH library.
37 dph_Modules :: PackageId -> Modules
40 { dph_PArray_Base = mk (fsLit "Data.Array.Parallel.PArray.Base")
41 , dph_PArray_Scalar = mk (fsLit "Data.Array.Parallel.PArray.Scalar")
42 , dph_PArray_ScalarInstances = mk (fsLit "Data.Array.Parallel.PArray.ScalarInstances")
43 , dph_PArray_PRepr = mk (fsLit "Data.Array.Parallel.PArray.PRepr")
44 , dph_PArray_PReprInstances = mk (fsLit "Data.Array.Parallel.PArray.PReprInstances")
45 , dph_PArray_PData = mk (fsLit "Data.Array.Parallel.PArray.PData")
46 , dph_PArray_PDataInstances = mk (fsLit "Data.Array.Parallel.PArray.PDataInstances")
47 , dph_PArray_Types = mk (fsLit "Data.Array.Parallel.PArray.Types")
49 , dph_Closure = mk (fsLit "Data.Array.Parallel.Lifted.Closure")
50 , dph_Unboxed = mk (fsLit "Data.Array.Parallel.Lifted.Unboxed")
51 , dph_Combinators = mk (fsLit "Data.Array.Parallel.Lifted.Combinators")
52 , dph_Scalar = mk (fsLit "Data.Array.Parallel.Lifted.Scalar")
54 , dph_Prelude_Int = mk (fsLit "Data.Array.Parallel.Prelude.Base.Int")
55 , dph_Prelude_Word8 = mk (fsLit "Data.Array.Parallel.Prelude.Base.Word8")
56 , dph_Prelude_Double = mk (fsLit "Data.Array.Parallel.Prelude.Base.Double")
57 , dph_Prelude_Bool = mk (fsLit "Data.Array.Parallel.Prelude.Base.Bool")
58 , dph_Prelude_Tuple = mk (fsLit "Data.Array.Parallel.Prelude.Base.Tuple")
60 where mk = mkModule pkg . mkModuleNameFS
63 dph_Orphans :: [Modules -> Module]
66 , dph_PArray_ScalarInstances
67 , dph_PArray_PReprInstances
68 , dph_PArray_PDataInstances