#include "fusion-phases.h"
module Data.Array.Parallel.PArray.PRepr
( module Data.Array.Parallel.PArray.PRepr.Base
, module Data.Array.Parallel.PArray.PRepr.Instances
, module Data.Array.Parallel.PArray.PRepr.Nested
, unpackPA
, module Data.Array.Parallel.PArray.PRepr.Tuple)
where
import Data.Array.Parallel.PArray.PRepr.Base
import Data.Array.Parallel.PArray.PRepr.Instances
import Data.Array.Parallel.PArray.PRepr.Nested
import Data.Array.Parallel.PArray.PRepr.Tuple
import Data.Array.Parallel.PArray.PData
import Data.Array.Parallel.Pretty
import qualified Data.Vector as V
instance (Show a, PA a)
=> Show (PArray a) where
show (PArray _ pdata)
= render
$ brackets
$ text "|"
<> (hcat $ punctuate comma
$ map (text . show) $ V.toList $ toVectorPA pdata)
<> text "|"
instance (PprVirtual a, PA a)
=> PprVirtual (PArray a) where
pprv (PArray _ pdata)
= brackets
$ text "|"
<> (hcat $ punctuate comma
$ map pprv $ V.toList $ toVectorPA pdata)
<> text "|"
unpackPA :: PA a => PArray a -> PData (PRepr a)
unpackPA (PArray _ pdata)
= toArrPRepr pdata