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 2024-03-20 21:14:05
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-foldl (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-foldl.new.1905 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-foldl"

Wed Mar 20 21:14:05 2024 rev:28 rq:1157246 version:1.4.16

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-foldl/ghc-foldl.changes      2023-11-09 
21:35:01.560062123 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-foldl.new.1905/ghc-foldl.changes    
2024-03-20 21:16:02.517745088 +0100
@@ -1,0 +2,12 @@
+Sat Mar  2 06:37:40 UTC 2024 - Peter Simons <psim...@suse.com>
+
+- Update foldl to version 1.4.16.
+  1.4.16
+
+  - Add [`Control.Foldl.postmapM`]
+
+  1.4.15
+
+  - Add `Cosieve` and `Costrong` instances
+
+-------------------------------------------------------------------

Old:
----
  foldl-1.4.15.tar.gz
  foldl.cabal

New:
----
  foldl-1.4.16.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-foldl.spec ++++++
--- /var/tmp/diff_new_pack.pU9rb2/_old  2024-03-20 21:16:04.273810900 +0100
+++ /var/tmp/diff_new_pack.pU9rb2/_new  2024-03-20 21:16:04.273810900 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-foldl
 #
-# Copyright (c) 2023 SUSE LLC
+# Copyright (c) 2024 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -20,13 +20,12 @@
 %global pkgver %{pkg_name}-%{version}
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        1.4.15
+Version:        1.4.16
 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/1.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.15.tar.gz -> foldl-1.4.16.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/foldl-1.4.15/CHANGELOG.md 
new/foldl-1.4.16/CHANGELOG.md
--- old/foldl-1.4.15/CHANGELOG.md       2001-09-09 03:46:40.000000000 +0200
+++ new/foldl-1.4.16/CHANGELOG.md       2001-09-09 03:46:40.000000000 +0200
@@ -1,3 +1,11 @@
+1.4.16
+
+- Add [`Control.Foldl.postmapM`]
+
+1.4.15
+
+- Add `Cosieve` and `Costrong` instances
+
 1.4.14
 
 - Add 
[`Control.Foldl.NonEmpty.nonEmpty`](https://github.com/Gabriella439/foldl/pull/186)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/foldl-1.4.15/README.md new/foldl-1.4.16/README.md
--- old/foldl-1.4.15/README.md  2001-09-09 03:46:40.000000000 +0200
+++ new/foldl-1.4.16/README.md  2001-09-09 03:46:40.000000000 +0200
@@ -136,7 +136,7 @@
 
 ## Development Status
 
-[![Build 
Status](https://travis-ci.org/Gabriella439/Haskell-Foldl-Library.png)](https://travis-ci.org/Gabriella439/Haskell-Foldl-Library)
+[![Build 
Status](https://github.com/Gabriella439/foldl/actions/workflows/haskell.yml/badge.svg)](https://github.com/Gabriella439/foldl/actions/workflows/haskell.yml)
 
 The `foldl` library is pretty stable at this point.  I don't expect there to be
 breaking changes to the API from this point forward unless people discover new
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/foldl-1.4.15/foldl.cabal new/foldl-1.4.16/foldl.cabal
--- old/foldl-1.4.15/foldl.cabal        2001-09-09 03:46:40.000000000 +0200
+++ new/foldl-1.4.16/foldl.cabal        2001-09-09 03:46:40.000000000 +0200
@@ -1,5 +1,5 @@
 Name: foldl
-Version: 1.4.15
+Version: 1.4.16
 Cabal-Version: >=1.10
 Build-Type: Simple
 License: BSD3
@@ -25,13 +25,13 @@
     HS-Source-Dirs: src
     Build-Depends:
         base         >= 4.11.0.0 && < 5   ,
-        bytestring   >= 0.9.2.1  && < 0.12,
+        bytestring   >= 0.9.2.1  && < 0.13,
         random       >= 1.2      && < 1.3 ,
-        primitive                   < 0.9 ,
-        text         >= 0.11.2.0 && < 2.1 ,
+        primitive                   < 0.10,
+        text         >= 0.11.2.0 && < 2.2 ,
         transformers >= 0.2.0.0  && < 0.7 ,
         vector       >= 0.7      && < 0.14,
-        containers   >= 0.5.0.0  && < 0.7 ,
+        containers   >= 0.5.0.0  && < 0.8 ,
         unordered-containers        < 0.3 ,
         hashable                    < 1.5 ,
         contravariant               < 1.6 ,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/foldl-1.4.15/src/Control/Foldl/NonEmpty.hs 
new/foldl-1.4.16/src/Control/Foldl/NonEmpty.hs
--- old/foldl-1.4.15/src/Control/Foldl/NonEmpty.hs      2001-09-09 
03:46:40.000000000 +0200
+++ new/foldl-1.4.16/src/Control/Foldl/NonEmpty.hs      2001-09-09 
03:46:40.000000000 +0200
@@ -54,7 +54,7 @@
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance Num b => Num (Fold1 a b) where
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/foldl-1.4.15/src/Control/Foldl.hs 
new/foldl-1.4.16/src/Control/Foldl.hs
--- old/foldl-1.4.15/src/Control/Foldl.hs       2001-09-09 03:46:40.000000000 
+0200
+++ new/foldl-1.4.16/src/Control/Foldl.hs       2001-09-09 03:46:40.000000000 
+0200
@@ -123,6 +123,7 @@
     , _Fold1
     , premap
     , premapM
+    , postmapM
     , prefilter
     , prefilterM
     , predropWhile
@@ -300,7 +301,7 @@
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance Num b => Num (Fold a b) where
@@ -434,7 +435,7 @@
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance (Monad m, Num b) => Num (FoldM m a b) where
@@ -1227,6 +1228,19 @@
     step' x a = f a >>= step x
 {-# INLINABLE premapM #-}
 
+{-| @(postmapM f folder)@ returns a new 'FoldM' where f is applied to the 
final value.
+
+> postmapM return = id
+>
+> postmapM (f >=> g) = postmapM g . postmapM f
+
+> postmapM k (pure r) = k r
+-}
+postmapM :: Monad m => (a -> m r) -> FoldM m x a -> FoldM m x r
+postmapM f (FoldM step begin done) = FoldM step begin done'
+  where done' x = done x >>= f
+{-# INLINABLE postmapM #-}
+
 {-| @(prefilter f folder)@ returns a new 'Fold' where the folder's input is 
used
   only when the input satisfies a predicate f
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/foldl-1.4.15/src/Control/Scanl.hs 
new/foldl-1.4.16/src/Control/Scanl.hs
--- old/foldl-1.4.15/src/Control/Scanl.hs       2001-09-09 03:46:40.000000000 
+0200
+++ new/foldl-1.4.16/src/Control/Scanl.hs       2001-09-09 03:46:40.000000000 
+0200
@@ -149,7 +149,7 @@
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance Num b => Num (Scan a b) where
@@ -299,7 +299,7 @@
     mempty = pure mempty
     {-# INLINE mempty #-}
 
-    mappend = liftA2 mappend
+    mappend = (<>)
     {-# INLINE mappend #-}
 
 instance (Monad m, Num b) => Num (ScanM m a b) where

Reply via email to