Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-transformers-compat for
openSUSE:Factory checked in at 2021-11-11 21:37:04
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-transformers-compat (Old)
and /work/SRC/openSUSE:Factory/.ghc-transformers-compat.new.1890 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-transformers-compat"
Thu Nov 11 21:37:04 2021 rev:17 rq:930370 version:0.7.1
Changes:
--------
---
/work/SRC/openSUSE:Factory/ghc-transformers-compat/ghc-transformers-compat.changes
2021-08-25 20:58:17.401154748 +0200
+++
/work/SRC/openSUSE:Factory/.ghc-transformers-compat.new.1890/ghc-transformers-compat.changes
2021-11-11 21:37:30.052935863 +0100
@@ -1,0 +2,11 @@
+Mon Nov 1 08:29:32 UTC 2021 - [email protected]
+
+- Update transformers-compat to version 0.7.1.
+ 0.7.1 [2021.10.30]
+ ------------------
+ * Backport new instances from GHC 9.2/`base-4.16`
+ * `Eq1`, `Read1`, and `Show1` instances for `Complex`
+ * `Eq{1,2}`, `Ord{1,2}`, `Show{1,2}`, and `Read{1,2}` instances for `(,,)`
+ and `(,,,)`
+
+-------------------------------------------------------------------
Old:
----
transformers-compat-0.7.tar.gz
New:
----
transformers-compat-0.7.1.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-transformers-compat.spec ++++++
--- /var/tmp/diff_new_pack.inyDLe/_old 2021-11-11 21:37:31.428936866 +0100
+++ /var/tmp/diff_new_pack.inyDLe/_new 2021-11-11 21:37:31.432936869 +0100
@@ -18,7 +18,7 @@
%global pkg_name transformers-compat
Name: ghc-%{pkg_name}
-Version: 0.7
+Version: 0.7.1
Release: 0
Summary: A small compatibility shim for the transformers library
License: BSD-3-Clause
++++++ transformers-compat-0.7.tar.gz -> transformers-compat-0.7.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/transformers-compat-0.7/0.3/Data/Functor/Classes.hs
new/transformers-compat-0.7.1/0.3/Data/Functor/Classes.hs
--- old/transformers-compat-0.7/0.3/Data/Functor/Classes.hs 2001-09-09
03:46:40.000000000 +0200
+++ new/transformers-compat-0.7.1/0.3/Data/Functor/Classes.hs 2001-09-09
03:46:40.000000000 +0200
@@ -92,6 +92,7 @@
import Data.Functor.Compose
import Data.Functor.Constant
import Data.Functor.Product
+import Data.Complex (Complex (..))
#if MIN_VERSION_transformers(0,3,0)
import Control.Applicative.Lift
@@ -99,6 +100,7 @@
import Data.Functor.Reverse
#endif
+
#ifndef HASKELL98
# if __GLASGOW_HASKELL__ >= 708
import Data.Typeable
@@ -830,6 +832,110 @@
# endif
#endif
+#if MIN_VERSION_base(4,4,0)
+instance Eq1 Complex where
+ liftEq eq (x :+ y) (u :+ v) = eq x u && eq y v
+
+instance Read1 Complex where
+ liftReadsPrec rdP _ p s = readParen (p > complexPrec) (\s' -> do
+ (x, s'') <- rdP (complexPrec+1) s'
+ (":+", s''') <- lex s''
+ (y, s'''') <- rdP (complexPrec+1) s'''
+ return (x :+ y, s'''')) s
+ where
+ complexPrec = 6
+
+instance Show1 Complex where
+ liftShowsPrec sp _ d (x :+ y) = showParen (d > complexPrec) $
+ sp (complexPrec+1) x . showString " :+ " . sp (complexPrec+1) y
+ where
+ complexPrec = 6
+#endif
+
+instance Eq a => Eq2 ((,,) a) where
+ liftEq2 e1 e2 (u1, x1, y1) (v1, x2, y2) =
+ u1 == v1 &&
+ e1 x1 x2 && e2 y1 y2
+
+instance Ord a => Ord2 ((,,) a) where
+ liftCompare2 comp1 comp2 (u1, x1, y1) (v1, x2, y2) =
+ compare u1 v1 `mappend`
+ comp1 x1 x2 `mappend` comp2 y1 y2
+
+instance Read a => Read2 ((,,) a) where
+ liftReadsPrec2 rp1 _ rp2 _ _ = readParen False $ \ r ->
+ [((e1,e2,e3), y) | ("(",s) <- lex r,
+ (e1,t) <- readsPrec 0 s,
+ (",",u) <- lex t,
+ (e2,v) <- rp1 0 u,
+ (",",w) <- lex v,
+ (e3,x) <- rp2 0 w,
+ (")",y) <- lex x]
+
+instance Show a => Show2 ((,,) a) where
+ liftShowsPrec2 sp1 _ sp2 _ _ (x1,y1,y2)
+ = showChar '(' . showsPrec 0 x1
+ . showChar ',' . sp1 0 y1
+ . showChar ',' . sp2 0 y2
+ . showChar ')'
+
+instance (Eq a, Eq b) => Eq1 ((,,) a b) where
+ liftEq = liftEq2 (==)
+
+instance (Ord a, Ord b) => Ord1 ((,,) a b) where
+ liftCompare = liftCompare2 compare
+
+instance (Read a, Read b) => Read1 ((,,) a b) where
+ liftReadsPrec = liftReadsPrec2 readsPrec readList
+
+instance (Show a, Show b) => Show1 ((,,) a b) where
+ liftShowsPrec = liftShowsPrec2 showsPrec showList
+
+instance (Eq a, Eq b) => Eq2 ((,,,) a b) where
+ liftEq2 e1 e2 (u1, u2, x1, y1) (v1, v2, x2, y2) =
+ u1 == v1 &&
+ u2 == v2 &&
+ e1 x1 x2 && e2 y1 y2
+
+instance (Ord a, Ord b) => Ord2 ((,,,) a b) where
+ liftCompare2 comp1 comp2 (u1, u2, x1, y1) (v1, v2, x2, y2) =
+ compare u1 v1 `mappend`
+ compare u2 v2 `mappend`
+ comp1 x1 x2 `mappend` comp2 y1 y2
+
+instance (Read a, Read b) => Read2 ((,,,) a b) where
+ liftReadsPrec2 rp1 _ rp2 _ _ = readParen False $ \ r ->
+ [((e1,e2,e3,e4), s9) | ("(",s1) <- lex r,
+ (e1,s2) <- readsPrec 0 s1,
+ (",",s3) <- lex s2,
+ (e2,s4) <- readsPrec 0 s3,
+ (",",s5) <- lex s4,
+ (e3,s6) <- rp1 0 s5,
+ (",",s7) <- lex s6,
+ (e4,s8) <- rp2 0 s7,
+ (")",s9) <- lex s8]
+
+instance (Show a, Show b) => Show2 ((,,,) a b) where
+ liftShowsPrec2 sp1 _ sp2 _ _ (x1,x2,y1,y2)
+ = showChar '(' . showsPrec 0 x1
+ . showChar ',' . showsPrec 0 x2
+ . showChar ',' . sp1 0 y1
+ . showChar ',' . sp2 0 y2
+ . showChar ')'
+
+instance (Eq a, Eq b, Eq c) => Eq1 ((,,,) a b c) where
+ liftEq = liftEq2 (==)
+
+instance (Ord a, Ord b, Ord c) => Ord1 ((,,,) a b c) where
+ liftCompare = liftCompare2 compare
+
+instance (Read a, Read b, Read c) => Read1 ((,,,) a b c) where
+ liftReadsPrec = liftReadsPrec2 readsPrec readList
+
+instance (Show a, Show b, Show c) => Show1 ((,,,) a b c) where
+ liftShowsPrec = liftShowsPrec2 showsPrec showList
+
+
{- $example
These functions can be used to assemble 'Read' and 'Show' instances for
new algebraic types. For example, given the definition
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/transformers-compat-0.7/CHANGELOG.markdown
new/transformers-compat-0.7.1/CHANGELOG.markdown
--- old/transformers-compat-0.7/CHANGELOG.markdown 2001-09-09
03:46:40.000000000 +0200
+++ new/transformers-compat-0.7.1/CHANGELOG.markdown 2001-09-09
03:46:40.000000000 +0200
@@ -1,3 +1,10 @@
+0.7.1 [2021.10.30]
+------------------
+* Backport new instances from GHC 9.2/`base-4.16`
+ * `Eq1`, `Read1`, and `Show1` instances for `Complex`
+ * `Eq{1,2}`, `Ord{1,2}`, `Show{1,2}`, and `Read{1,2}` instances for `(,,)`
+ and `(,,,)`
+
0.7 [2021.07.25]
----------------
* Backport changes from `transformers-0.6.*`:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/transformers-compat-0.7/src/Control/Monad/Trans/Instances.hs
new/transformers-compat-0.7.1/src/Control/Monad/Trans/Instances.hs
--- old/transformers-compat-0.7/src/Control/Monad/Trans/Instances.hs
2001-09-09 03:46:40.000000000 +0200
+++ new/transformers-compat-0.7.1/src/Control/Monad/Trans/Instances.hs
2001-09-09 03:46:40.000000000 +0200
@@ -88,6 +88,10 @@
import Data.Traversable (Traversable(..))
import Foreign (Storable(..), castPtr)
+#if MIN_VERSION_base(4,4,0) && !(MIN_VERSION_base(4,9,0))
+import Data.Complex (Complex (..))
+#endif
+
#if !(MIN_VERSION_transformers(0,6,0))
import Control.Monad.Trans.Error (Error(..), ErrorT(..))
import Control.Monad.Trans.List (ListT(..), mapListT)
@@ -1248,3 +1252,129 @@
# endif
# endif
#endif
+
+#if !(MIN_VERSION_base(4,9,0))
+# if defined(TRANSFORMERS_FOUR)
+
+# if MIN_VERSION_base(4,4,0)
+instance Eq1 Complex where eq1 = (==)
+instance Read1 Complex where readsPrec1 = readsPrec
+instance Show1 Complex where showsPrec1 = showsPrec
+# endif
+
+instance (Eq a, Eq b) => Eq1 ((,,) a b) where eq1 = (==)
+instance (Ord a, Ord b) => Ord1 ((,,) a b) where compare1 = compare
+instance (Read a, Read b) => Read1 ((,,) a b) where readsPrec1 = readsPrec
+instance (Show a, Show b) => Show1 ((,,) a b) where showsPrec1 = showsPrec
+
+instance (Eq a, Eq b, Eq c) => Eq1 ((,,,) a b c) where eq1 = (==)
+instance (Ord a, Ord b, Ord c) => Ord1 ((,,,) a b c) where compare1 = compare
+instance (Read a, Read b, Read c) => Read1 ((,,,) a b c) where readsPrec1 =
readsPrec
+instance (Show a, Show b, Show c) => Show1 ((,,,) a b c) where showsPrec1 =
showsPrec
+# elif MIN_VERSION_transformers(0,5,0)
+
+# if MIN_VERSION_base(4,4,0)
+instance Eq1 Complex where
+ liftEq eq (x :+ y) (u :+ v) = eq x u && eq y v
+
+instance Read1 Complex where
+ liftReadsPrec rdP _ p s = readParen (p > complexPrec) (\s' -> do
+ (x, s'') <- rdP (complexPrec+1) s'
+ (":+", s''') <- lex s''
+ (y, s'''') <- rdP (complexPrec+1) s'''
+ return (x :+ y, s'''')) s
+ where
+ complexPrec = 6
+
+instance Show1 Complex where
+ liftShowsPrec sp _ d (x :+ y) = showParen (d > complexPrec) $
+ sp (complexPrec+1) x . showString " :+ " . sp (complexPrec+1) y
+ where
+ complexPrec = 6
+# endif
+
+instance Eq a => Eq2 ((,,) a) where
+ liftEq2 e1 e2 (u1, x1, y1) (v1, x2, y2) =
+ u1 == v1 &&
+ e1 x1 x2 && e2 y1 y2
+
+instance Ord a => Ord2 ((,,) a) where
+ liftCompare2 comp1 comp2 (u1, x1, y1) (v1, x2, y2) =
+ compare u1 v1 `mappend`
+ comp1 x1 x2 `mappend` comp2 y1 y2
+
+instance Read a => Read2 ((,,) a) where
+ liftReadsPrec2 rp1 _ rp2 _ _ = readParen False $ \ r ->
+ [((e1,e2,e3), y) | ("(",s) <- lex r,
+ (e1,t) <- readsPrec 0 s,
+ (",",u) <- lex t,
+ (e2,v) <- rp1 0 u,
+ (",",w) <- lex v,
+ (e3,x) <- rp2 0 w,
+ (")",y) <- lex x]
+
+instance Show a => Show2 ((,,) a) where
+ liftShowsPrec2 sp1 _ sp2 _ _ (x1,y1,y2)
+ = showChar '(' . showsPrec 0 x1
+ . showChar ',' . sp1 0 y1
+ . showChar ',' . sp2 0 y2
+ . showChar ')'
+
+instance (Eq a, Eq b) => Eq1 ((,,) a b) where
+ liftEq = liftEq2 (==)
+
+instance (Ord a, Ord b) => Ord1 ((,,) a b) where
+ liftCompare = liftCompare2 compare
+
+instance (Read a, Read b) => Read1 ((,,) a b) where
+ liftReadsPrec = liftReadsPrec2 readsPrec readList
+
+instance (Show a, Show b) => Show1 ((,,) a b) where
+ liftShowsPrec = liftShowsPrec2 showsPrec showList
+
+instance (Eq a, Eq b) => Eq2 ((,,,) a b) where
+ liftEq2 e1 e2 (u1, u2, x1, y1) (v1, v2, x2, y2) =
+ u1 == v1 &&
+ u2 == v2 &&
+ e1 x1 x2 && e2 y1 y2
+
+instance (Ord a, Ord b) => Ord2 ((,,,) a b) where
+ liftCompare2 comp1 comp2 (u1, u2, x1, y1) (v1, v2, x2, y2) =
+ compare u1 v1 `mappend`
+ compare u2 v2 `mappend`
+ comp1 x1 x2 `mappend` comp2 y1 y2
+
+instance (Read a, Read b) => Read2 ((,,,) a b) where
+ liftReadsPrec2 rp1 _ rp2 _ _ = readParen False $ \ r ->
+ [((e1,e2,e3,e4), s9) | ("(",s1) <- lex r,
+ (e1,s2) <- readsPrec 0 s1,
+ (",",s3) <- lex s2,
+ (e2,s4) <- readsPrec 0 s3,
+ (",",s5) <- lex s4,
+ (e3,s6) <- rp1 0 s5,
+ (",",s7) <- lex s6,
+ (e4,s8) <- rp2 0 s7,
+ (")",s9) <- lex s8]
+
+instance (Show a, Show b) => Show2 ((,,,) a b) where
+ liftShowsPrec2 sp1 _ sp2 _ _ (x1,x2,y1,y2)
+ = showChar '(' . showsPrec 0 x1
+ . showChar ',' . showsPrec 0 x2
+ . showChar ',' . sp1 0 y1
+ . showChar ',' . sp2 0 y2
+ . showChar ')'
+
+instance (Eq a, Eq b, Eq c) => Eq1 ((,,,) a b c) where
+ liftEq = liftEq2 (==)
+
+instance (Ord a, Ord b, Ord c) => Ord1 ((,,,) a b c) where
+ liftCompare = liftCompare2 compare
+
+instance (Read a, Read b, Read c) => Read1 ((,,,) a b c) where
+ liftReadsPrec = liftReadsPrec2 readsPrec readList
+
+instance (Show a, Show b, Show c) => Show1 ((,,,) a b c) where
+ liftShowsPrec = liftShowsPrec2 showsPrec showList
+
+# endif
+#endif
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/transformers-compat-0.7/tests/transformers-compat-tests.cabal
new/transformers-compat-0.7.1/tests/transformers-compat-tests.cabal
--- old/transformers-compat-0.7/tests/transformers-compat-tests.cabal
2001-09-09 03:46:40.000000000 +0200
+++ new/transformers-compat-0.7.1/tests/transformers-compat-tests.cabal
2001-09-09 03:46:40.000000000 +0200
@@ -24,8 +24,9 @@
, GHC == 8.4.4
, GHC == 8.6.5
, GHC == 8.8.4
- , GHC == 8.10.4
+ , GHC == 8.10.7
, GHC == 9.0.1
+ , GHC == 9.2.1
source-repository head
type: git
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/transformers-compat-0.7/transformers-compat.cabal
new/transformers-compat-0.7.1/transformers-compat.cabal
--- old/transformers-compat-0.7/transformers-compat.cabal 2001-09-09
03:46:40.000000000 +0200
+++ new/transformers-compat-0.7.1/transformers-compat.cabal 2001-09-09
03:46:40.000000000 +0200
@@ -1,6 +1,6 @@
name: transformers-compat
category: Compatibility
-version: 0.7
+version: 0.7.1
license: BSD3
cabal-version: >= 1.10
license-file: LICENSE
@@ -34,8 +34,9 @@
, GHC == 8.4.4
, GHC == 8.6.5
, GHC == 8.8.4
- , GHC == 8.10.4
+ , GHC == 8.10.7
, GHC == 9.0.1
+ , GHC == 9.2.1
extra-source-files:
.ghci
.gitignore
