dfbaca8 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Move serialWith back to Internal.Data.Fold.Type

dfbaca8Adithya Kumar4 years ago

core/src/Streamly/Data/Fold.hs−5

compare with master

unifiedsplit

@@ -321,11 +321,6 @@ import Prelude

321

322import Streamly.Internal.Data.Fold

323

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−

329-- $setup

324-- $setup

330-- >>> import Data.Function ((&))

325-- >>> import Data.Function ((&))

331-- >>> import qualified Streamly.Data.Fold as Fold

326-- >>> import qualified Streamly.Data.Fold as Fold

core/src/Streamly/Internal/Data/Fold.hs+1

@@ -292,6 +292,7 @@ module Streamly.Internal.Data.Fold

292 , mapM

293 , variance

294 , stdDev

295+ , serialWith

295 )

296 )

296where

297where

297

298

core/src/Streamly/Internal/Data/Fold/Type.hs+6

@@ -412,6 +412,7 @@ module Streamly.Internal.Data.Fold.Type

412

413 -- * Deprecated

414 , foldr

415+ , serialWith

415 )

416 )

416where

417where

417

418

@@ -804,6 +805,11 @@ splitWith func (Fold stepL initialL extractL) (Fold stepR initialR extractR) =

804 Partial sR -> extractR sR

805 Partial sR -> extractR sR

805 Done rR -> return rR

806 Done rR -> return rR

806

807

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+

807{-# ANN type SeqFoldState_ Fuse #-}

813{-# ANN type SeqFoldState_ Fuse #-}

808data SeqFoldState_ sl sr = SeqFoldL_ !sl | SeqFoldR_ !sr

814data SeqFoldState_ sl sr = SeqFoldL_ !sl | SeqFoldR_ !sr

809

815