Revert rename of dph-common for now
[packages/dph.git] / dph-common / Data / Array / Parallel / Lifted.hs
1 module Data.Array.Parallel.Lifted (
2 module Data.Array.Parallel.Lifted.PArray,
3 module Data.Array.Parallel.PArray.PReprInstances,
4
5 (:->), ($:), ($:^),
6
7 fromPArrayPA, toPArrayPA, fromNestedPArrayPA,
8 ) where
9
10 import Data.Array.Parallel.Lifted.PArray
11 import Data.Array.Parallel.Lifted.Closure
12 import Data.Array.Parallel.PArray.PReprInstances
13
14 fromPArrayPA :: PA a => PArray a :-> PArray a
15 {-# INLINE fromPArrayPA #-}
16 fromPArrayPA = closure1 (\x -> x) (\xs -> xs)
17
18 toPArrayPA :: PA a => PArray a :-> PArray a
19 {-# INLINE toPArrayPA #-}
20 toPArrayPA = closure1 (\x -> x) (\xs -> xs)
21
22 fromNestedPArrayPA :: PA a => (PArray (PArray a) :-> PArray (PArray a))
23 {-# INLINE fromNestedPArrayPA #-}
24 fromNestedPArrayPA = closure1 (\xs -> xs) (\xss -> xss)
25