Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-foldl for openSUSE:Factory checked in at 2023-07-09 20:41:02 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-foldl (Old) and /work/SRC/openSUSE:Factory/.ghc-foldl.new.23466 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-foldl" Sun Jul 9 20:41:02 2023 rev:26 rq:1097776 version:1.4.15 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-foldl/ghc-foldl.changes 2023-04-04 21:20:15.385127670 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-foldl.new.23466/ghc-foldl.changes 2023-07-09 20:43:08.790143160 +0200 @@ -1,0 +2,7 @@ +Sat Jul 1 16:48:25 UTC 2023 - Peter Simons <[email protected]> + +- Update foldl to version 1.4.15. + Upstream has not updated the file "CHANGELOG.md" since the last + release. + +------------------------------------------------------------------- Old: ---- foldl-1.4.14.tar.gz foldl.cabal New: ---- foldl-1.4.15.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-foldl.spec ++++++ --- /var/tmp/diff_new_pack.EjJDWB/_old 2023-07-09 20:43:09.370146650 +0200 +++ /var/tmp/diff_new_pack.EjJDWB/_new 2023-07-09 20:43:09.374146674 +0200 @@ -20,13 +20,12 @@ %global pkgver %{pkg_name}-%{version} %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.4.14 +Version: 1.4.15 Release: 0 Summary: Composable, streaming, and efficient left folds License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/2.cabal#/%{pkg_name}.cabal BuildRequires: ghc-Cabal-devel BuildRequires: ghc-base-devel BuildRequires: ghc-base-prof @@ -97,7 +96,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ foldl-1.4.14.tar.gz -> foldl-1.4.15.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/foldl-1.4.14/README.md new/foldl-1.4.15/README.md --- old/foldl-1.4.14/README.md 2001-09-09 03:46:40.000000000 +0200 +++ new/foldl-1.4.15/README.md 2001-09-09 03:46:40.000000000 +0200 @@ -94,7 +94,7 @@ ```haskell (,) <$> Fold.sum <*> Fold.length = Fold step (Pair 0 0) done where - step (Pair x y) = Pair (x + n) (y + 1) + step (Pair x y) n = Pair (x + n) (y + 1) done (Pair x y) = (x, y) ``` diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/foldl-1.4.14/foldl.cabal new/foldl-1.4.15/foldl.cabal --- old/foldl-1.4.14/foldl.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/foldl-1.4.15/foldl.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ Name: foldl -Version: 1.4.14 +Version: 1.4.15 Cabal-Version: >=1.10 Build-Type: Simple License: BSD3 @@ -27,7 +27,7 @@ base >= 4.11.0.0 && < 5 , bytestring >= 0.9.2.1 && < 0.12, random >= 1.2 && < 1.3 , - primitive < 0.8 , + primitive < 0.9 , text >= 0.11.2.0 && < 2.1 , transformers >= 0.2.0.0 && < 0.7 , vector >= 0.7 && < 0.14, @@ -35,8 +35,8 @@ unordered-containers < 0.3 , hashable < 1.5 , contravariant < 1.6 , - profunctors >= 3.2 && < 5.7 , - semigroupoids >= 1.0 && < 5.4 , + profunctors >= 4.3.2 && < 5.7 , + semigroupoids >= 1.0 && < 6.1 , comonad >= 4.0 && < 6 if impl(ghc < 8.0) Build-Depends: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/foldl-1.4.14/src/Control/Foldl.hs new/foldl-1.4.15/src/Control/Foldl.hs --- old/foldl-1.4.14/src/Control/Foldl.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/foldl-1.4.15/src/Control/Foldl.hs 2001-09-09 03:46:40.000000000 +0200 @@ -41,6 +41,7 @@ {-# LANGUAGE BangPatterns #-} {-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE FlexibleContexts #-} +{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE Trustworthy #-} @@ -164,6 +165,7 @@ import Data.Semigroupoid (Semigroupoid) import Data.Functor.Extend (Extend(..)) import Data.Profunctor +import Data.Profunctor.Sieve import Data.Sequence ((|>)) import Data.Vector.Generic (Vector, Mutable) import Data.Vector.Generic.Mutable (MVector) @@ -242,8 +244,19 @@ rmap = fmap instance Choice Fold where - right' (Fold step begin done) = Fold (liftA2 step) (Right begin) (fmap done) - {-# INLINE right' #-} + right' (Fold step begin done) = Fold (liftA2 step) (Right begin) (fmap done) + {-# INLINE right' #-} + +instance Cosieve Fold [] where + cosieve = fold + {-# INLINE cosieve #-} + +instance Costrong Fold where + unfirst p = fmap f list + where + f as = b + where (b, d) = fold p [ (a, d) | a <- as ] + {-# INLINE unfirst #-} instance Comonad (Fold a) where extract (Fold _ begin done) = done begin
