Unboxed.foldl'
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Jul 2008 14:55:20 +0000 (14:55 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Jul 2008 14:55:20 +0000 (14:55 +0000)
Data/Vector/Unboxed.hs

index cb3f687..9518ce5 100644 (file)
@@ -92,3 +92,7 @@ zipWith :: (Unbox a, Unbox b, Unbox c)
 zipWith f v w = unstream
               $ Stream.zipWith f (stream v) (stream w)
 
+foldl' :: Unbox a => (a -> b -> b) -> b -> Vector a -> b
+{-# INLINE foldl' #-}
+foldl' f z = Stream.foldl' f z . stream
+