Commit 01e30d9b authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Add emptyPA

parent baae8e60
module Data.Array.Parallel.Lifted (
PArray(..), PA(..),
module Data.Array.Parallel.Lifted.PArray,
(:->), ($:), ($:^)
) where
......
module Data.Array.Parallel.Lifted.PArray (
PArray, PA(..)
PArray, PA(..), emptyPA
) where
import GHC.Exts (Int#)
......@@ -14,3 +14,6 @@ class PA a where
lengthPA :: PArray a -> Int#
replicatePA :: Int# -> a -> PArray a
emptyPA :: PA a => PArray a
emptyPA = replicatePA 0# (error "PArray.emptyPA: empty")
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment