Revert rename of dph-common for now
[packages/dph.git] / dph-common / Data / Array / Parallel / Prelude / Tuple.hs
1 module Data.Array.Parallel.Prelude.Tuple (
2 tup2, tup3
3 ) where
4
5 import Data.Array.Parallel.Lifted.Closure
6 import Data.Array.Parallel.Lifted.PArray
7 import Data.Array.Parallel.PArray.PDataInstances
8
9 tup2 :: (PA a, PA b) => a :-> b :-> (a,b)
10 {-# INLINE tup2 #-}
11 tup2 = closure2 (,) zipPA#
12
13 tup3 :: (PA a, PA b, PA c) => a :-> b :-> c :-> (a,b,c)
14 {-# INLINE tup3 #-}
15 tup3 = closure3 (,,) zip3PA#