Export accumulate and update from D.V.Unboxed
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 7 Dec 2009 02:15:21 +0000 (02:15 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 7 Dec 2009 02:15:21 +0000 (02:15 +0000)
Data/Vector/Unboxed.hs

index 58eaf3f..114db97 100644 (file)
@@ -16,7 +16,9 @@ module Data.Vector.Unboxed (
   unsafeSlice,
 
   -- * Permutations
-  accum, accumulate_, (//), update_, backpermute, reverse,
+  accum, accumulate, accumulate_,
+  (//), update, update_,
+  backpermute, reverse,
 
   -- * Mapping
   map, concatMap,
@@ -199,6 +201,11 @@ accum :: Unbox a => (a -> b -> a) -> Vector a -> [(Int,b)] -> Vector a
 {-# INLINE accum #-}
 accum = G.accum
 
+accumulate :: (Unbox a, Unbox b)
+                => (a -> b -> a) -> Vector a -> Vector (Int,b) -> Vector a
+{-# INLINE accumulate #-}
+accumulate = G.accumulate
+
 accumulate_ :: (Unbox a, Unbox b) =>
                (a -> b -> a) -> Vector a -> Vector Int -> Vector b -> Vector a
 {-# INLINE accumulate_ #-}
@@ -208,6 +215,10 @@ accumulate_ = G.accumulate_
 {-# INLINE (//) #-}
 (//) = (G.//)
 
+update :: Unbox a => Vector a -> Vector (Int, a) -> Vector a
+{-# INLINE update #-}
+update = G.update
+
 update_ :: Unbox a => Vector a -> Vector Int -> Vector a -> Vector a
 {-# INLINE update_ #-}
 update_ = G.update_