Adapted to simplified VECTORISE pragmas
[packages/dph.git] / dph-lifted-copy / Data / Array / Parallel / Prelude / Base.hs
1 {-# OPTIONS_GHC -fvectorise #-}
2
3 -- |This module sets up the basic vectorisation map for vectorising the DPH Prelude.
4
5 module Data.Array.Parallel.Prelude.Base
6 ( PArr
7 -- , ()
8 , Bool
9 )
10 where
11
12 import Data.Array.Parallel.Prim () -- dependency required by the vectoriser
13
14 import Data.Array.Parallel.PArr
15 import Data.Array.Parallel.Lifted.Closure
16
17 {-# VECTORISE type PArr = PArray #-}
18 {-# VECTORISE type PArray = PArray #-}
19
20 {-# VECTORISE SCALAR type (->) = (:->) #-}
21
22 {-# VECTORISE SCALAR type () #-}
23 {-# VECTORISE SCALAR type Bool #-}