@@ -1611,6 +1611,8 @@ break f xs = case findIndex f xs of
16111611-- >>> import qualified Data.Vector.Strict as V
16121612-- >>> V.spanR (>4) $ V.generate 10 id
16131613-- ([5,6,7,8,9],[0,1,2,3,4])
1614+ --
1615+ -- @since 0.13.2.0
16141616spanR :: Vector v a => (a -> Bool ) -> v a -> (v a , v a )
16151617{-# INLINE spanR #-}
16161618spanR f = breakR (not . f)
@@ -1627,6 +1629,8 @@ spanR f = breakR (not . f)
16271629-- >>> import qualified Data.Vector.Strict as V
16281630-- >>> V.breakR (<5) $ V.generate 10 id
16291631-- ([5,6,7,8,9],[0,1,2,3,4])
1632+ --
1633+ -- @since 0.13.2.0
16301634breakR :: Vector v a => (a -> Bool ) -> v a -> (v a , v a )
16311635{-# INLINE breakR #-}
16321636breakR f xs = case findIndexR f xs of
@@ -1650,7 +1654,7 @@ breakR f xs = case findIndexR f xs of
16501654--
16511655-- See also 'Data.List.groupBy'.
16521656--
1653- -- @since 0.13.0.1
1657+ -- @since 0.13.0.0
16541658{-# INLINE groupBy #-}
16551659groupBy :: (Vector v a ) => (a -> a -> Bool ) -> v a -> [v a ]
16561660groupBy _ v | null v = []
@@ -1674,7 +1678,7 @@ groupBy f v =
16741678--
16751679-- See also 'Data.List.group'.
16761680--
1677- -- @since 0.13.0.1
1681+ -- @since 0.13.0.0
16781682group :: (Vector v a , Eq a ) => v a -> [v a ]
16791683{-# INLINE group #-}
16801684group = groupBy (==)
0 commit comments