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

index 114db97..584b061 100644 (file)
@@ -38,7 +38,7 @@ module Data.Vector.Unboxed (
   foldl, foldl1, foldl', foldl1', foldr, foldr1,
 
   -- * Specialised folds
-  sum, product, maximum, minimum,
+  and, or, sum, product, maximum, minimum,
 
   -- * Unfolding
   unfoldr,
@@ -68,7 +68,7 @@ import Prelude hiding ( length, null,
                         filter, takeWhile, dropWhile,
                         elem, notElem,
                         foldl, foldl1, foldr, foldr1,
-                        sum, product, minimum, maximum,
+                        and, or, sum, product, minimum, maximum,
                         scanl, scanl1,
                         enumFromTo, enumFromThenTo )
 
@@ -359,6 +359,14 @@ foldr1 = G.foldr1
 -- Specialised folds
 -- -----------------
 
+and :: Vector Bool -> Bool
+{-# INLINE and #-}
+and = G.and
+
+or :: Vector Bool -> Bool
+{-# INLINE or #-}
+or = G.or
+
 sum :: (Unbox a, Num a) => Vector a -> a
 {-# INLINE sum #-}
 sum = G.sum