Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-profunctors for openSUSE:Factory 
checked in at 2021-03-10 08:55:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-profunctors (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-profunctors.new.2378 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-profunctors"

Wed Mar 10 08:55:26 2021 rev:19 rq:877666 version:5.6.2

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-profunctors/ghc-profunctors.changes  
2021-01-20 18:25:17.767396275 +0100
+++ 
/work/SRC/openSUSE:Factory/.ghc-profunctors.new.2378/ghc-profunctors.changes    
    2021-03-10 08:57:30.870905037 +0100
@@ -1,0 +2,8 @@
+Fri Feb 19 23:06:08 UTC 2021 - psim...@suse.com
+
+- Update profunctors to version 5.6.2.
+  5.6.2 [2021.02.17]
+  ------------------
+  * Add `Semigroup` and `Monoid` instances for `Forget`
+
+-------------------------------------------------------------------

Old:
----
  profunctors-5.6.1.tar.gz

New:
----
  profunctors-5.6.2.tar.gz

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

Other differences:
------------------
++++++ ghc-profunctors.spec ++++++
--- /var/tmp/diff_new_pack.nYihyK/_old  2021-03-10 08:57:31.394905577 +0100
+++ /var/tmp/diff_new_pack.nYihyK/_new  2021-03-10 08:57:31.394905577 +0100
@@ -18,7 +18,7 @@
 
 %global pkg_name profunctors
 Name:           ghc-%{pkg_name}
-Version:        5.6.1
+Version:        5.6.2
 Release:        0
 Summary:        Profunctors
 License:        BSD-3-Clause

++++++ profunctors-5.6.1.tar.gz -> profunctors-5.6.2.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/profunctors-5.6.1/CHANGELOG.markdown 
new/profunctors-5.6.2/CHANGELOG.markdown
--- old/profunctors-5.6.1/CHANGELOG.markdown    2001-09-09 03:46:40.000000000 
+0200
+++ new/profunctors-5.6.2/CHANGELOG.markdown    2001-09-09 03:46:40.000000000 
+0200
@@ -1,3 +1,7 @@
+5.6.2 [2021.02.17]
+------------------
+* Add `Semigroup` and `Monoid` instances for `Forget`
+
 5.6.1 [2020.12.31]
 ------------------
 * Add `Functor` instances for `PastroSum`, `CopastroSum`, `Environment`,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/profunctors-5.6.1/profunctors.cabal 
new/profunctors-5.6.2/profunctors.cabal
--- old/profunctors-5.6.1/profunctors.cabal     2001-09-09 03:46:40.000000000 
+0200
+++ new/profunctors-5.6.2/profunctors.cabal     2001-09-09 03:46:40.000000000 
+0200
@@ -1,6 +1,6 @@
 name:          profunctors
 category:      Control, Categories
-version:       5.6.1
+version:       5.6.2
 license:       BSD3
 cabal-version: >= 1.10
 license-file:  LICENSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/profunctors-5.6.1/src/Data/Profunctor/Types.hs 
new/profunctors-5.6.2/src/Data/Profunctor/Types.hs
--- old/profunctors-5.6.1/src/Data/Profunctor/Types.hs  2001-09-09 
03:46:40.000000000 +0200
+++ new/profunctors-5.6.2/src/Data/Profunctor/Types.hs  2001-09-09 
03:46:40.000000000 +0200
@@ -41,11 +41,18 @@
 import Data.Distributive
 import Data.Foldable
 import Data.Functor.Contravariant
-import Data.Monoid hiding (Product)
 import Data.Profunctor.Unsafe
 import Data.Traversable
 import Prelude hiding (id,(.))
 
+#if !(MIN_VERSION_base(4,8,0))
+import Data.Monoid (Monoid(..))
+#endif
+
+#if !(MIN_VERSION_base(4,11,0))
+import Data.Semigroup (Semigroup(..))
+#endif
+
 infixr 0 :->
 
 -- | (':->') has a polymorphic kind since @5.6@.
@@ -243,3 +250,21 @@
 instance Contravariant (Forget r a) where
   contramap _ (Forget k) = Forget k
   {-# INLINE contramap #-}
+
+-- | Via @Semigroup r => (a -> r)@
+--
+-- @since 5.6.2
+instance Semigroup r => Semigroup (Forget r a b) where
+  Forget f <> Forget g = Forget (f <> g)
+  {-# INLINE (<>) #-}
+
+-- | Via @Monoid r => (a -> r)@
+--
+-- @since 5.6.2
+instance Monoid r => Monoid (Forget r a b) where
+  mempty = Forget mempty
+  {-# INLINE mempty #-}
+#if !(MIN_VERSION_base(4,11,0))
+  mappend (Forget f) (Forget g) = Forget (mappend f g)
+  {-# INLINE mappend #-}
+#endif

Reply via email to