Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-contravariant for
openSUSE:Factory checked in at 2021-08-25 20:56:44
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-contravariant (Old)
and /work/SRC/openSUSE:Factory/.ghc-contravariant.new.1899 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-contravariant"
Wed Aug 25 20:56:44 2021 rev:17 rq:912590 version:1.5.5
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-contravariant/ghc-contravariant.changes
2021-01-08 17:39:56.980990150 +0100
+++
/work/SRC/openSUSE:Factory/.ghc-contravariant.new.1899/ghc-contravariant.changes
2021-08-25 20:57:30.273216619 +0200
@@ -1,0 +2,16 @@
+Wed Jul 28 07:41:39 UTC 2021 - [email protected]
+
+- Update contravariant to version 1.5.5.
+ 1.5.5 [2021.07.27]
+ ------------------
+ * Fix the build on old GHCs using `transformers-0.6.*`.
+
+-------------------------------------------------------------------
+Tue Jul 27 07:51:34 UTC 2021 - [email protected]
+
+- Update contravariant to version 1.5.4.
+ 1.5.4 [2021.07.25]
+ ------------------
+ * Allow building with `transformers-0.6.*`.
+
+-------------------------------------------------------------------
Old:
----
contravariant-1.5.3.tar.gz
New:
----
contravariant-1.5.5.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-contravariant.spec ++++++
--- /var/tmp/diff_new_pack.0tfQrq/_old 2021-08-25 20:57:30.729216020 +0200
+++ /var/tmp/diff_new_pack.0tfQrq/_new 2021-08-25 20:57:30.733216015 +0200
@@ -1,7 +1,7 @@
#
# spec file for package ghc-contravariant
#
-# 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
@@ -18,7 +18,7 @@
%global pkg_name contravariant
Name: ghc-%{pkg_name}
-Version: 1.5.3
+Version: 1.5.5
Release: 0
Summary: Contravariant functors
License: BSD-3-Clause
++++++ contravariant-1.5.3.tar.gz -> contravariant-1.5.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/contravariant-1.5.3/CHANGELOG.markdown
new/contravariant-1.5.5/CHANGELOG.markdown
--- old/contravariant-1.5.3/CHANGELOG.markdown 2001-09-09 03:46:40.000000000
+0200
+++ new/contravariant-1.5.5/CHANGELOG.markdown 2001-09-09 03:46:40.000000000
+0200
@@ -1,3 +1,11 @@
+1.5.5 [2021.07.27]
+------------------
+* Fix the build on old GHCs using `transformers-0.6.*`.
+
+1.5.4 [2021.07.25]
+------------------
+* Allow building with `transformers-0.6.*`.
+
1.5.3 [2020.12.30]
------------------
* Explicitly mark modules as `Safe`.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/contravariant-1.5.3/contravariant.cabal
new/contravariant-1.5.5/contravariant.cabal
--- old/contravariant-1.5.3/contravariant.cabal 2001-09-09 03:46:40.000000000
+0200
+++ new/contravariant-1.5.5/contravariant.cabal 2001-09-09 03:46:40.000000000
+0200
@@ -1,6 +1,6 @@
name: contravariant
category: Control, Data
-version: 1.5.3
+version: 1.5.5
license: BSD3
cabal-version: >= 1.10
license-file: LICENSE
@@ -23,8 +23,9 @@
, GHC == 8.2.2
, GHC == 8.4.4
, GHC == 8.6.5
- , GHC == 8.8.3
- , GHC == 8.10.1
+ , GHC == 8.8.4
+ , GHC == 8.10.4
+ , GHC == 9.0.1
extra-source-files:
.hlint.yaml
CHANGELOG.markdown
@@ -62,7 +63,7 @@
hs-source-dirs: src
build-depends:
base < 5,
- transformers >= 0.3 && < 0.6
+ transformers >= 0.3 && < 0.7
if !impl(ghc > 7.10)
build-depends: transformers-compat >= 0.5 && < 1
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/contravariant-1.5.3/old-src/Data/Functor/Contravariant.hs
new/contravariant-1.5.5/old-src/Data/Functor/Contravariant.hs
--- old/contravariant-1.5.3/old-src/Data/Functor/Contravariant.hs
2001-09-09 03:46:40.000000000 +0200
+++ new/contravariant-1.5.5/old-src/Data/Functor/Contravariant.hs
2001-09-09 03:46:40.000000000 +0200
@@ -20,7 +20,9 @@
{-# LANGUAGE Trustworthy #-}
#endif
+#if !(MIN_VERSION_transformers(0,6,0))
{-# OPTIONS_GHC -fno-warn-deprecations #-}
+#endif
-----------------------------------------------------------------------------
-- |
@@ -66,10 +68,8 @@
import Control.Category
-import Control.Monad.Trans.Error
import Control.Monad.Trans.Except
import Control.Monad.Trans.Identity
-import Control.Monad.Trans.List
import Control.Monad.Trans.Maybe
import qualified Control.Monad.Trans.RWS.Lazy as Lazy
import qualified Control.Monad.Trans.RWS.Strict as Strict
@@ -87,6 +87,11 @@
import Data.Functor.Compose
import Data.Functor.Reverse
+#if !(MIN_VERSION_transformers(0,6,0))
+import Control.Monad.Trans.Error
+import Control.Monad.Trans.List
+#endif
+
#if MIN_VERSION_base(4,8,0)
import Data.Monoid (Alt(..))
#else
@@ -222,18 +227,12 @@
contramap f (R1 ys) = R1 (contramap f ys)
#endif
-instance Contravariant m => Contravariant (ErrorT e m) where
- contramap f = ErrorT . contramap (fmap f) . runErrorT
-
instance Contravariant m => Contravariant (ExceptT e m) where
contramap f = ExceptT . contramap (fmap f) . runExceptT
instance Contravariant f => Contravariant (IdentityT f) where
contramap f = IdentityT . contramap f . runIdentityT
-instance Contravariant m => Contravariant (ListT m) where
- contramap f = ListT . contramap (fmap f) . runListT
-
instance Contravariant m => Contravariant (MaybeT m) where
contramap f = MaybeT . contramap (fmap f) . runMaybeT
@@ -287,6 +286,14 @@
contramap f = Reverse . contramap f . getReverse
{-# INLINE contramap #-}
+#if !(MIN_VERSION_transformers(0,6,0))
+instance Contravariant m => Contravariant (ErrorT e m) where
+ contramap f = ErrorT . contramap (fmap f) . runErrorT
+
+instance Contravariant m => Contravariant (ListT m) where
+ contramap f = ListT . contramap (fmap f) . runListT
+#endif
+
#ifdef MIN_VERSION_StateVar
instance Contravariant SettableStateVar where
contramap f (SettableStateVar k) = SettableStateVar (k . f)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/contravariant-1.5.3/src/Data/Functor/Contravariant/Divisible.hs
new/contravariant-1.5.5/src/Data/Functor/Contravariant/Divisible.hs
--- old/contravariant-1.5.3/src/Data/Functor/Contravariant/Divisible.hs
2001-09-09 03:46:40.000000000 +0200
+++ new/contravariant-1.5.5/src/Data/Functor/Contravariant/Divisible.hs
2001-09-09 03:46:40.000000000 +0200
@@ -6,7 +6,9 @@
{-# LANGUAGE Trustworthy #-}
#endif
+#if !(MIN_VERSION_transformers(0,6,0))
{-# OPTIONS_GHC -fno-warn-deprecations #-}
+#endif
-----------------------------------------------------------------------------
-- |
@@ -40,10 +42,8 @@
import Control.Applicative
import Control.Applicative.Backwards
import Control.Arrow
-import Control.Monad.Trans.Error
import Control.Monad.Trans.Except
import Control.Monad.Trans.Identity
-import Control.Monad.Trans.List
import Control.Monad.Trans.Maybe
import qualified Control.Monad.Trans.RWS.Lazy as Lazy
import qualified Control.Monad.Trans.RWS.Strict as Strict
@@ -53,7 +53,6 @@
import qualified Control.Monad.Trans.Writer.Lazy as Lazy
import qualified Control.Monad.Trans.Writer.Strict as Strict
-import Data.Either
import Data.Functor.Compose
import Data.Functor.Constant
import Data.Functor.Contravariant
@@ -61,6 +60,12 @@
import Data.Functor.Reverse
import Data.Void
+#if !(MIN_VERSION_transformers(0,6,0))
+import Control.Monad.Trans.Error
+import Control.Monad.Trans.List
+import Data.Either
+#endif
+
#if MIN_VERSION_base(4,8,0)
import Data.Monoid (Alt(..))
#else
@@ -241,10 +246,6 @@
divide f (Backwards l) (Backwards r) = Backwards $ divide f l r
conquer = Backwards conquer
-instance Divisible m => Divisible (ErrorT e m) where
- divide f (ErrorT l) (ErrorT r) = ErrorT $ divide (funzip . fmap f) l r
- conquer = ErrorT conquer
-
instance Divisible m => Divisible (ExceptT e m) where
divide f (ExceptT l) (ExceptT r) = ExceptT $ divide (funzip . fmap f) l r
conquer = ExceptT conquer
@@ -253,10 +254,6 @@
divide f (IdentityT l) (IdentityT r) = IdentityT $ divide f l r
conquer = IdentityT conquer
-instance Divisible m => Divisible (ListT m) where
- divide f (ListT l) (ListT r) = ListT $ divide (funzip . map f) l r
- conquer = ListT conquer
-
instance Divisible m => Divisible (MaybeT m) where
divide f (MaybeT l) (MaybeT r) = MaybeT $ divide (funzip . fmap f) l r
conquer = MaybeT conquer
@@ -422,7 +419,7 @@
Right d -> h c d
instance Decidable Equivalence where
- lose f = Equivalence $ \a -> absurd (f a)
+ lose f = Equivalence $ absurd . f
choose f (Equivalence g) (Equivalence h) = Equivalence $ \a b -> case f a of
Left c -> case f b of
Left d -> g c d
@@ -432,7 +429,7 @@
Right d -> h c d
instance Decidable Predicate where
- lose f = Predicate $ \a -> absurd (f a)
+ lose f = Predicate $ absurd . f
choose f (Predicate g) (Predicate h) = Predicate $ either g h . f
instance Monoid r => Decidable (Op r) where
@@ -495,9 +492,19 @@
(abc a))
(rsmb r s) (rsmc r s)
+#if !(MIN_VERSION_transformers(0,6,0))
+instance Divisible m => Divisible (ErrorT e m) where
+ divide f (ErrorT l) (ErrorT r) = ErrorT $ divide (funzip . fmap f) l r
+ conquer = ErrorT conquer
+
+instance Divisible m => Divisible (ListT m) where
+ divide f (ListT l) (ListT r) = ListT $ divide (funzip . map f) l r
+ conquer = ListT conquer
+
instance Divisible m => Decidable (ListT m) where
lose _ = ListT conquer
choose f (ListT l) (ListT r) = ListT $ divide ((lefts &&& rights) . map f) l
r
+#endif
instance Divisible m => Decidable (MaybeT m) where
lose _ = MaybeT conquer
