Hello community, here is the log from the commit of package ghc-conduit for openSUSE:Leap:15.2 checked in at 2020-05-21 12:58:55 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Leap:15.2/ghc-conduit (Old) and /work/SRC/openSUSE:Leap:15.2/.ghc-conduit.new.2738 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-conduit" Thu May 21 12:58:55 2020 rev:12 rq:805989 version:1.3.2 Changes: -------- --- /work/SRC/openSUSE:Leap:15.2/ghc-conduit/ghc-conduit.changes 2020-02-19 18:38:36.589968035 +0100 +++ /work/SRC/openSUSE:Leap:15.2/.ghc-conduit.new.2738/ghc-conduit.changes 2020-05-21 12:58:56.290742627 +0200 @@ -1,0 +2,8 @@ +Wed May 6 06:54:12 UTC 2020 - psim...@suse.com + +- Update conduit to version 1.3.2. + ## 1.3.2 + + * Add `mapInputM` [#435](https://github.com/snoyberg/conduit/pull/435) + +------------------------------------------------------------------- Old: ---- conduit-1.3.1.2.tar.gz New: ---- conduit-1.3.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-conduit.spec ++++++ --- /var/tmp/diff_new_pack.oVgJPM/_old 2020-05-21 12:58:56.634743377 +0200 +++ /var/tmp/diff_new_pack.oVgJPM/_new 2020-05-21 12:58:56.634743377 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-conduit # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name conduit %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.3.1.2 +Version: 1.3.2 Release: 0 Summary: Streaming data processing library License: MIT ++++++ conduit-1.3.1.2.tar.gz -> conduit-1.3.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.1.2/ChangeLog.md new/conduit-1.3.2/ChangeLog.md --- old/conduit-1.3.1.2/ChangeLog.md 2019-12-16 06:37:44.000000000 +0100 +++ new/conduit-1.3.2/ChangeLog.md 2020-03-19 15:15:01.000000000 +0100 @@ -1,5 +1,9 @@ # ChangeLog for conduit +## 1.3.2 + +* Add `mapInputM` [#435](https://github.com/snoyberg/conduit/pull/435) + ## 1.3.1.2 * More eagerly emit groups in `chunksOf` [#427](https://github.com/snoyberg/conduit/pull/427) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.1.2/conduit.cabal new/conduit-1.3.2/conduit.cabal --- old/conduit-1.3.1.2/conduit.cabal 2019-12-16 06:37:44.000000000 +0100 +++ new/conduit-1.3.2/conduit.cabal 2020-03-19 15:15:01.000000000 +0100 @@ -1,5 +1,5 @@ Name: conduit -Version: 1.3.1.2 +Version: 1.3.2 Synopsis: Streaming data processing library. description: `conduit` is a solution to the streaming data problem, allowing for production, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.1.2/src/Data/Conduit/Internal/Conduit.hs new/conduit-1.3.2/src/Data/Conduit/Internal/Conduit.hs --- old/conduit-1.3.1.2/src/Data/Conduit/Internal/Conduit.hs 2018-10-06 21:25:16.000000000 +0200 +++ new/conduit-1.3.2/src/Data/Conduit/Internal/Conduit.hs 2020-03-19 15:15:01.000000000 +0100 @@ -72,6 +72,7 @@ , Data.Conduit.Internal.Conduit.mapOutput , Data.Conduit.Internal.Conduit.mapOutputMaybe , Data.Conduit.Internal.Conduit.mapInput + , Data.Conduit.Internal.Conduit.mapInputM , zipSinks , zipSources , zipSourcesApp @@ -989,6 +990,22 @@ go (Leftover p i) = maybe id (flip Leftover) (f' i) (go p) in go (c0 Done) +-- | Apply a monadic action to all the input values of a @ConduitT@. +-- +-- Since 1.3.2 +mapInputM :: Monad m + => (i1 -> m i2) -- ^ map initial input to new input + -> (i2 -> m (Maybe i1)) -- ^ map new leftovers to initial leftovers + -> ConduitT i2 o m r + -> ConduitT i1 o m r +mapInputM f f' (ConduitT c0) = ConduitT $ \rest -> let + go (HaveOutput p o) = HaveOutput (go p) o + go (NeedInput p c) = NeedInput (\i -> PipeM $ go . p <$> f i) (go . c) + go (Done r) = rest r + go (PipeM mp) = PipeM $ fmap go mp + go (Leftover p i) = PipeM $ (\x -> maybe id (flip Leftover) x (go p)) <$> f' i + in go (c0 Done) + -- | The connect-and-resume operator. This does not close the @Source@, but -- instead returns it to be used again. This allows a @Source@ to be used -- incrementally in a large program, without forcing the entire program to live diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.1.2/src/Data/Conduit/Internal.hs new/conduit-1.3.2/src/Data/Conduit/Internal.hs --- old/conduit-1.3.1.2/src/Data/Conduit/Internal.hs 2018-03-14 07:08:08.000000000 +0100 +++ new/conduit-1.3.2/src/Data/Conduit/Internal.hs 2020-03-19 15:15:01.000000000 +0100 @@ -11,8 +11,9 @@ import Data.Conduit.Internal.Conduit hiding (await, awaitForever, bracketP, - leftover, mapInput, mapOutput, - mapOutputMaybe, transPipe, + leftover, mapInput, mapInputM, + mapOutput, mapOutputMaybe, + transPipe, yield, yieldM) import Data.Conduit.Internal.Pipe import Data.Conduit.Internal.Fusion diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.1.2/src/Data/Conduit.hs new/conduit-1.3.2/src/Data/Conduit.hs --- old/conduit-1.3.1.2/src/Data/Conduit.hs 2018-04-11 14:50:45.000000000 +0200 +++ new/conduit-1.3.2/src/Data/Conduit.hs 2020-03-19 15:15:01.000000000 +0100 @@ -57,6 +57,7 @@ , mapOutput , mapOutputMaybe , mapInput + , mapInputM , mergeSource , passthroughSink , sourceToList