git.iko.soy/streamly
on master help sign in
Rename foldl1 to foldl1'
9606875Ranjeet Kumar Ranjan
src/Streamly/Internal/Data/Fold.hs+6−6
compare with master
unifiedsplit
@@ -21,7 +21,7 @@ module Streamly.Internal.Data.Fold
21 -- * Constructors
21 -- * Constructors
22 , foldl'
22 , foldl'
23 , foldlM'
23 , foldlM'
24− , foldl1
24+ , foldl1'
25 , foldr
25 , foldr
26 , foldrM
26 , foldrM
27 , mkFold
27 , mkFold
@@ -410,7 +410,7 @@ drainBy2 f = Fold2 (const (void . f)) (\_ -> return ()) return
410-- @since 0.7.0
410-- @since 0.7.0
411{-# INLINABLE last #-}
411{-# INLINABLE last #-}
412last :: Monad m => Fold m a (Maybe a)
412last :: Monad m => Fold m a (Maybe a)
413−last = foldl1 (\_ x -> x)
413+last = foldl1' (\_ x -> x)
414
414
415------------------------------------------------------------------------------
415------------------------------------------------------------------------------
416-- To Summary
416-- To Summary
@@ -474,7 +474,7 @@ product = mkFold_ step (Partial 1)
474-- @since 0.7.0
474-- @since 0.7.0
475{-# INLINE maximumBy #-}
475{-# INLINE maximumBy #-}
476maximumBy :: Monad m => (a -> a -> Ordering) -> Fold m a (Maybe a)
476maximumBy :: Monad m => (a -> a -> Ordering) -> Fold m a (Maybe a)
477−maximumBy cmp = foldl1 max'
477+maximumBy cmp = foldl1' max'
478
478
479 where
479 where
480
480
@@ -495,14 +495,14 @@ maximumBy cmp = foldl1 max'
495-- @since 0.7.0
495-- @since 0.7.0
496{-# INLINE maximum #-}
496{-# INLINE maximum #-}
497maximum :: (Monad m, Ord a) => Fold m a (Maybe a)
497maximum :: (Monad m, Ord a) => Fold m a (Maybe a)
498−maximum = foldl1 max
498+maximum = foldl1' max
499
499
500-- | Computes the minimum element with respect to the given comparison function
500-- | Computes the minimum element with respect to the given comparison function
501--
501--
502-- @since 0.7.0
502-- @since 0.7.0
503{-# INLINE minimumBy #-}
503{-# INLINE minimumBy #-}
504minimumBy :: Monad m => (a -> a -> Ordering) -> Fold m a (Maybe a)
504minimumBy :: Monad m => (a -> a -> Ordering) -> Fold m a (Maybe a)
505−minimumBy cmp = foldl1 min'
505+minimumBy cmp = foldl1' min'
506
506
507 where
507 where
508
508
@@ -523,7 +523,7 @@ minimumBy cmp = foldl1 min'
523-- @since 0.7.0
523-- @since 0.7.0
524{-# INLINE minimum #-}
524{-# INLINE minimum #-}
525minimum :: (Monad m, Ord a) => Fold m a (Maybe a)
525minimum :: (Monad m, Ord a) => Fold m a (Maybe a)
526−minimum = foldl1 min
526+minimum = foldl1' min
527
527
528------------------------------------------------------------------------------
528------------------------------------------------------------------------------
529-- To Summary (Statistical)
529-- To Summary (Statistical)
src/Streamly/Internal/Data/Fold/Type.hs+5−5
@@ -198,7 +198,7 @@ module Streamly.Internal.Data.Fold.Type
198 -- * Constructors
198 -- * Constructors
199 , foldl'
199 , foldl'
200 , foldlM'
200 , foldlM'
201− , foldl1
201+ , foldl1'
202 , foldr
202 , foldr
203 , foldrM
203 , foldrM
204 , mkFold
204 , mkFold
@@ -280,7 +280,7 @@ import Streamly.Internal.Data.Maybe.Strict (Maybe'(..), toMaybe)
280import Streamly.Internal.Data.Tuple.Strict (Tuple'(..), Tuple3'(..))
280import Streamly.Internal.Data.Tuple.Strict (Tuple'(..), Tuple3'(..))
281import Streamly.Internal.Data.SVar (MonadAsync)
281import Streamly.Internal.Data.SVar (MonadAsync)
282
282
283−import Prelude hiding (concatMap, filter, foldl1, foldr, map, take)
283+import Prelude hiding (concatMap, filter, foldr, map, take)
284
284
285-- $setup
285-- $setup
286-- >>> :m
286-- >>> :m
@@ -443,9 +443,9 @@ foldlM' step initial =
443-- See also: "Streamly.Prelude.foldl1'"
443-- See also: "Streamly.Prelude.foldl1'"
444--
444--
445-- /Pre-release/
445-- /Pre-release/
446−{-# INLINE foldl1 #-}
446+{-# INLINE foldl1' #-}
447−foldl1 :: Monad m => (a -> a -> a) -> Fold m a (Maybe a)
447+foldl1' :: Monad m => (a -> a -> a) -> Fold m a (Maybe a)
448−foldl1 step = fmap toMaybe $ foldl' step1 Nothing'
448+foldl1' step = fmap toMaybe $ foldl' step1 Nothing'
449
449
450 where
450 where
451
451