git.iko.soy/streamly
on master help sign in
Move serialWith back to Internal.Data.Fold.Type
commitdfbaca86c70da367ada864b66c870a1d2a52c610 authorAdithya Kumar <adithya@composewell.com> dateWed 9 Nov 2022, 15:47 (4 years ago) parentb39b4c7
3 files changed+7−5
compare with master
unifiedsplit
core/src/Streamly/Data/Fold.hs−5 core/src/Streamly/Internal/Data/Fold.hs+1 core/src/Streamly/Internal/Data/Fold/Type.hs+6
core/src/Streamly/Data/Fold.hs−5
@@ -321,11 +321,6 @@ import Prelude
321321
322322import Streamly.Internal.Data.Fold
323323
324−{-# DEPRECATED serialWith "Please use \"splitWith\" instead" #-}
325−{-# INLINE serialWith #-}
326−serialWith :: Monad m => (a -> b -> c) -> Fold m x a -> Fold m x b -> Fold m x c
327−serialWith = splitWith
328−
329324-- $setup
330325-- >>> import Data.Function ((&))
331326-- >>> import qualified Streamly.Data.Fold as Fold
core/src/Streamly/Internal/Data/Fold.hs+1
@@ -292,6 +292,7 @@ module Streamly.Internal.Data.Fold
292292 , mapM
293293 , variance
294294 , stdDev
295+ , serialWith
295296 )
296297where
297298
core/src/Streamly/Internal/Data/Fold/Type.hs+6
@@ -412,6 +412,7 @@ module Streamly.Internal.Data.Fold.Type
412412
413413 -- * Deprecated
414414 , foldr
415+ , serialWith
415416 )
416417where
417418
@@ -804,6 +805,11 @@ splitWith func (Fold stepL initialL extractL) (Fold stepR initialR extractR) =
804805 Partial sR -> extractR sR
805806 Done rR -> return rR
806807
808+{-# DEPRECATED serialWith "Please use \"splitWith\" instead" #-}
809+{-# INLINE serialWith #-}
810+serialWith :: Monad m => (a -> b -> c) -> Fold m x a -> Fold m x b -> Fold m x c
811+serialWith = splitWith
812+
807813{-# ANN type SeqFoldState_ Fuse #-}
808814data SeqFoldState_ sl sr = SeqFoldL_ !sl | SeqFoldR_ !sr
809815