Add appBU
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 10 Nov 2009 14:57:26 +0000 (14:57 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Tue, 10 Nov 2009 14:57:26 +0000 (14:57 +0000)
dph-base/Data/Array/Parallel/Arr/BUArr.hs

index fcae2e9..bbd56ac 100644 (file)
@@ -58,7 +58,7 @@ module Data.Array.Parallel.Arr.BUArr (
 
   -- * Operations on immutable arrays
   -- ** Basic operations
-  lengthBU, emptyBU, replicateBU, indexBU, sliceBU, extractBU,
+  lengthBU, emptyBU, replicateBU, indexBU, sliceBU, extractBU, appBU,
 
   -- ** Streaming
   streamBU, unstreamBU,
@@ -444,6 +444,10 @@ replicateBU :: UAE e => Int -> e -> BUArr e
 {-# INLINE replicateBU #-}
 replicateBU n = unstreamBU . replicateS n
 
+appBU :: UAE e => BUArr e -> BUArr e -> BUArr e
+{-# INLINE appBU #-}
+appBU xs ys = unstreamBU (streamBU xs +++ streamBU ys)
+
 
 -- |Extract a slice from an array (given by its start index and length)
 --