git.iko.soy/streamly
on master help sign in
Rename foldl1 to foldl1'
commit9606875dac5460665c1b0452345871c9046f5808 authorRanjeet Kumar Ranjan <ranjeetr@composewell.com> dateWed 7 Apr 2021, 20:36 (6 years ago) parentf203fa8
2 files changed+11−11
compare with master
unifiedsplit
src/Streamly/Internal/Data/Fold.hs+6−6 src/Streamly/Internal/Data/Fold/Type.hs+5−5
src/Streamly/Internal/Data/Fold.hs+6−6
@@ -21,7 +21,7 @@ module Streamly.Internal.Data.Fold
2121 -- * Constructors
2222 , foldl'
2323 , foldlM'
24− , foldl1
24+ , foldl1'
2525 , foldr
2626 , foldrM
2727 , mkFold
@@ -410,7 +410,7 @@ drainBy2 f = Fold2 (const (void . f)) (\_ -> return ()) return
410410-- @since 0.7.0
411411{-# INLINABLE last #-}
412412last :: Monad m => Fold m a (Maybe a)
413−last = foldl1 (\_ x -> x)
413+last = foldl1' (\_ x -> x)
414414
415415------------------------------------------------------------------------------
416416-- To Summary
@@ -474,7 +474,7 @@ product = mkFold_ step (Partial 1)
474474-- @since 0.7.0
475475{-# INLINE maximumBy #-}
476476maximumBy :: Monad m => (a -> a -> Ordering) -> Fold m a (Maybe a)
477−maximumBy cmp = foldl1 max'
477+maximumBy cmp = foldl1' max'
478478
479479 where
480480
@@ -495,14 +495,14 @@ maximumBy cmp = foldl1 max'
495495-- @since 0.7.0
496496{-# INLINE maximum #-}
497497maximum :: (Monad m, Ord a) => Fold m a (Maybe a)
498−maximum = foldl1 max
498+maximum = foldl1' max
499499
500500-- | Computes the minimum element with respect to the given comparison function
501501--
502502-- @since 0.7.0
503503{-# INLINE minimumBy #-}
504504minimumBy :: Monad m => (a -> a -> Ordering) -> Fold m a (Maybe a)
505−minimumBy cmp = foldl1 min'
505+minimumBy cmp = foldl1' min'
506506
507507 where
508508
@@ -523,7 +523,7 @@ minimumBy cmp = foldl1 min'
523523-- @since 0.7.0
524524{-# INLINE minimum #-}
525525minimum :: (Monad m, Ord a) => Fold m a (Maybe a)
526−minimum = foldl1 min
526+minimum = foldl1' min
527527
528528------------------------------------------------------------------------------
529529-- To Summary (Statistical)
src/Streamly/Internal/Data/Fold/Type.hs+5−5
@@ -198,7 +198,7 @@ module Streamly.Internal.Data.Fold.Type
198198 -- * Constructors
199199 , foldl'
200200 , foldlM'
201− , foldl1
201+ , foldl1'
202202 , foldr
203203 , foldrM
204204 , mkFold
@@ -280,7 +280,7 @@ import Streamly.Internal.Data.Maybe.Strict (Maybe'(..), toMaybe)
280280import Streamly.Internal.Data.Tuple.Strict (Tuple'(..), Tuple3'(..))
281281import Streamly.Internal.Data.SVar (MonadAsync)
282282
283−import Prelude hiding (concatMap, filter, foldl1, foldr, map, take)
283+import Prelude hiding (concatMap, filter, foldr, map, take)
284284
285285-- $setup
286286-- >>> :m
@@ -443,9 +443,9 @@ foldlM' step initial =
443443-- See also: "Streamly.Prelude.foldl1'"
444444--
445445-- /Pre-release/
446−{-# INLINE foldl1 #-}
447−foldl1 :: Monad m => (a -> a -> a) -> Fold m a (Maybe a)
448−foldl1 step = fmap toMaybe $ foldl' step1 Nothing'
446+{-# INLINE foldl1' #-}
447+foldl1' :: Monad m => (a -> a -> a) -> Fold m a (Maybe a)
448+foldl1' step = fmap toMaybe $ foldl' step1 Nothing'
449449
450450 where
451451