Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-conduit for openSUSE:Factory checked in at 2021-03-10 08:56:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-conduit (Old) and /work/SRC/openSUSE:Factory/.ghc-conduit.new.2378 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-conduit" Wed Mar 10 08:56:17 2021 rev:31 rq:877979 version:1.3.4.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-conduit/ghc-conduit.changes 2020-12-22 11:50:42.658062225 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-conduit.new.2378/ghc-conduit.changes 2021-03-10 08:58:05.694940981 +0100 @@ -1,0 +2,8 @@ +Tue Mar 2 09:34:53 UTC 2021 - [email protected] + +- Update conduit to version 1.3.4.1. + ## 1.3.4.1 + + * Library and tests compile and run with GHC 9.0.1 [#455](https://github.com/snoyberg/conduit/pull/455) + +------------------------------------------------------------------- Old: ---- conduit-1.3.4.tar.gz New: ---- conduit-1.3.4.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-conduit.spec ++++++ --- /var/tmp/diff_new_pack.r82XR7/_old 2021-03-10 08:58:06.210941514 +0100 +++ /var/tmp/diff_new_pack.r82XR7/_new 2021-03-10 08:58:06.214941519 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-conduit # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2021 SUSE LLC # # 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.4 +Version: 1.3.4.1 Release: 0 Summary: Streaming data processing library License: MIT ++++++ conduit-1.3.4.tar.gz -> conduit-1.3.4.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.4/ChangeLog.md new/conduit-1.3.4.1/ChangeLog.md --- old/conduit-1.3.4/ChangeLog.md 2020-11-25 08:09:58.000000000 +0100 +++ new/conduit-1.3.4.1/ChangeLog.md 2021-03-02 08:18:44.000000000 +0100 @@ -1,5 +1,9 @@ # ChangeLog for conduit +## 1.3.4.1 + +* Library and tests compile and run with GHC 9.0.1 [#455](https://github.com/snoyberg/conduit/pull/455) + ## 1.3.4 * Add `foldWhile` [#453](https://github.com/snoyberg/conduit/issues/453) [#456](https://github.com/snoyberg/conduit/pull/456). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.4/conduit.cabal new/conduit-1.3.4.1/conduit.cabal --- old/conduit-1.3.4/conduit.cabal 2020-11-25 08:09:58.000000000 +0100 +++ new/conduit-1.3.4.1/conduit.cabal 2021-03-02 08:18:50.000000000 +0100 @@ -1,5 +1,5 @@ Name: conduit -Version: 1.3.4 +Version: 1.3.4.1 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.4/src/Data/Conduit/Internal/Conduit.hs new/conduit-1.3.4.1/src/Data/Conduit/Internal/Conduit.hs --- old/conduit-1.3.4/src/Data/Conduit/Internal/Conduit.hs 2020-11-25 08:09:24.000000000 +0100 +++ new/conduit-1.3.4.1/src/Data/Conduit/Internal/Conduit.hs 2021-03-02 08:18:06.000000000 +0100 @@ -360,7 +360,7 @@ -- | Generalize a 'Source' to a 'Producer'. -- -- Since 1.0.0 -toProducer :: Monad m => Source m a -> Producer m a +toProducer :: Monad m => Source m a -> ConduitT i a m () toProducer (ConduitT c0) = ConduitT $ \rest -> let go (HaveOutput p o) = HaveOutput (go p) o go (NeedInput _ c) = go (c ()) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/conduit-1.3.4/test/main.hs new/conduit-1.3.4.1/test/main.hs --- old/conduit-1.3.4/test/main.hs 2020-11-25 08:09:24.000000000 +0100 +++ new/conduit-1.3.4.1/test/main.hs 2021-03-02 08:16:50.000000000 +0100 @@ -264,7 +264,7 @@ x <- runConduitRes $ CI.ConduitT ((CI.unConduitT (CL.sourceList [1..10]) CI.Done - CI.>+> CI.injectLeftovers (flip CI.unConduitT CI.Done $ CL.map (* 2))) >>=) + CI.>+> CI.injectLeftovers ((`CI.unConduitT` CI.Done) $ CL.map (* 2))) >>=) .| CL.fold (+) 0 x `shouldBe` 2 * sum [1..10 :: Int] @@ -580,8 +580,8 @@ y <- runConduit $ CL.sourceList [1..10 :: Int] .| CL.fold (+) 0 x `shouldBe` y it' "right identity" $ do - x <- CI.runPipe $ mapM_ CI.yield [1..10 :: Int] CI.>+> (CI.injectLeftovers $ flip CI.unConduitT CI.Done $ CL.fold (+) 0) CI.>+> CI.idP - y <- CI.runPipe $ mapM_ CI.yield [1..10 :: Int] CI.>+> (CI.injectLeftovers $ flip CI.unConduitT CI.Done $ CL.fold (+) 0) + x <- CI.runPipe $ mapM_ CI.yield [1..10 :: Int] CI.>+> (CI.injectLeftovers $ (`CI.unConduitT` CI.Done) $ CL.fold (+) 0) CI.>+> CI.idP + y <- CI.runPipe $ mapM_ CI.yield [1..10 :: Int] CI.>+> (CI.injectLeftovers $ (`CI.unConduitT` CI.Done) $ CL.fold (+) 0) x `shouldBe` y describe "generalizing" $ do @@ -630,7 +630,7 @@ describe "injectLeftovers" $ do it "works" $ do let src = mapM_ CI.yield [1..10 :: Int] - conduit = CI.injectLeftovers $ flip CI.unConduitT CI.Done $ C.awaitForever $ \i -> do + conduit = CI.injectLeftovers $ (`CI.unConduitT` CI.Done) $ C.awaitForever $ \i -> do js <- CL.take 2 mapM_ C.leftover $ reverse js C.yield i
