Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-hxt for openSUSE:Factory checked
in at 2021-02-16 22:38:28
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-hxt (Old)
and /work/SRC/openSUSE:Factory/.ghc-hxt.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-hxt"
Tue Feb 16 22:38:28 2021 rev:12 rq:870866 version:9.3.1.21
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-hxt/ghc-hxt.changes 2020-12-22
11:41:13.181606720 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-hxt.new.28504/ghc-hxt.changes
2021-02-16 22:48:24.814555208 +0100
@@ -1,0 +2,6 @@
+Mon Feb 8 19:13:22 UTC 2021 - psim...@suse.com
+
+- Update hxt to version 9.3.1.21.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
hxt-9.3.1.18.tar.gz
New:
----
hxt-9.3.1.21.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-hxt.spec ++++++
--- /var/tmp/diff_new_pack.OnNsct/_old 2021-02-16 22:48:26.798556758 +0100
+++ /var/tmp/diff_new_pack.OnNsct/_new 2021-02-16 22:48:26.802556762 +0100
@@ -1,7 +1,7 @@
#
# spec file for package ghc-hxt
#
-# 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 hxt
Name: ghc-%{pkg_name}
-Version: 9.3.1.18
+Version: 9.3.1.21
Release: 0
Summary: A collection of tools for processing XML with Haskell
License: MIT
@@ -52,7 +52,11 @@
into various (sub-)packages. This package contains the core functionality,
hxt-curl, hxt-tagsoup, hxt-relaxng, hxt-xpath, hxt-xslt, hxt-regex-xmlschema
contain the extensions. hxt-unicode contains encoding and decoding functions,
-hxt-charproperties char properties for unicode and XML.
+hxt-charproperties char properties for unicode and XML. Changes from 9.3.1.20:
+ghc 8.10 and 9.0 compatibility, tuple picker up to 24-tuples, Either instance
+for xpickle
+
+Changes from 9.3.1.19: ghc-8.8.2 compatibility
Changes from 9.3.1.15: Bug in quoting PI instructions in showXmlTrees fixed
++++++ hxt-9.3.1.18.tar.gz -> hxt-9.3.1.21.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hxt-9.3.1.18/hxt.cabal new/hxt-9.3.1.21/hxt.cabal
--- old/hxt-9.3.1.18/hxt.cabal 2019-06-30 13:02:51.000000000 +0200
+++ new/hxt-9.3.1.21/hxt.cabal 2021-02-08 17:45:52.000000000 +0100
@@ -1,6 +1,6 @@
-- arch-tag: Haskell XML Toolbox main description file
Name: hxt
-Version: 9.3.1.18
+Version: 9.3.1.21
Synopsis: A collection of tools for processing XML with Haskell.
Description: The Haskell XML Toolbox bases on the ideas of HaXml and HXML,
but introduces a more general approach for processing XML with
Haskell.
@@ -16,6 +16,9 @@
hxt-regex-xmlschema contain the extensions.
hxt-unicode contains encoding and decoding functions,
hxt-charproperties char properties for unicode and XML.
+ Changes from 9.3.1.20: ghc 8.10 and 9.0 compatibility, tuple
picker up to 24-tuples, Either instance for xpickle
+ .
+ Changes from 9.3.1.19: ghc-8.8.2 compatibility
.
Changes from 9.3.1.15: Bug in quoting PI instructions in
showXmlTrees fixed
.
@@ -68,7 +71,7 @@
Homepage: https://github.com/UweSchmidt/hxt
Copyright: Copyright (c) 2005-2019 Uwe Schmidt
Build-type: Simple
-Cabal-version: >=1.8
+Cabal-version: >=1.10
extra-source-files:
examples/arrows/absurls/AbsURIs.hs
@@ -212,6 +215,8 @@
Text.XML.HXT.XMLSchema.DataTypeLibW3CNames,
Text.XML.HXT.Version
+ default-language: Haskell2010
+
hs-source-dirs: src
ghc-options: -Wall -fwarn-tabs
@@ -219,7 +224,7 @@
if flag(profile)
ghc-prof-options: -caf-all
- extensions: MultiParamTypeClasses DeriveDataTypeable FunctionalDependencies
FlexibleInstances CPP
+ default-extensions: MultiParamTypeClasses DeriveDataTypeable
FunctionalDependencies FlexibleInstances CPP
build-depends: base >= 4 && < 5,
containers >= 0.2,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hxt-9.3.1.18/src/Data/Atom.hs
new/hxt-9.3.1.21/src/Data/Atom.hs
--- old/hxt-9.3.1.18/src/Data/Atom.hs 2015-03-01 11:44:24.000000000 +0100
+++ new/hxt-9.3.1.21/src/Data/Atom.hs 2021-02-08 15:37:36.000000000 +0100
@@ -14,7 +14,7 @@
Unique Atoms generated from Strings and
managed as flyweights
- Data.Atom can be used for caching and storage optimisation
+ Data.Atom can be used for caching and storage optimization
of frequently used strings. An @Atom@ is constructed from a @String@.
For two equal strings the identical atom is returned.
@@ -42,7 +42,7 @@
> s `compare` t => newAtom s `compare` newAtom t
> show . newAtom == id
- Equality test for @Atom@s runs in /O(1)/, it is just a pointer comarison.
+ Equality test for @Atom@s runs in /O(1)/, it is just a pointer comparison.
The @Ord@ comparisons have the same runtime like the @ByteString@
comparisons.
Internally there is an UTF8 comparison, but UTF8 encoding preserves the
total order.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hxt-9.3.1.18/src/Data/Tree/NTree/TypeDefs.hs
new/hxt-9.3.1.21/src/Data/Tree/NTree/TypeDefs.hs
--- old/hxt-9.3.1.18/src/Data/Tree/NTree/TypeDefs.hs 2017-11-22
21:00:41.000000000 +0100
+++ new/hxt-9.3.1.21/src/Data/Tree/NTree/TypeDefs.hs 2021-02-08
15:37:36.000000000 +0100
@@ -27,10 +27,14 @@
import Control.FlatSeq (WNFData (..), rlnf)
import Data.Binary
-import Data.Monoid ((<>))
import Data.Tree.Class (Tree (..))
import Data.Typeable (Typeable)
+#if MIN_VERSION_base(4,13,0)
+#else
+import Data.Monoid ((<>))
+#endif
+
#if MIN_VERSION_base(4,8,2)
#else
import Control.Applicative ((<$>))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/hxt-9.3.1.18/src/Text/XML/HXT/Arrow/Pickle/Xml.hs
new/hxt-9.3.1.21/src/Text/XML/HXT/Arrow/Pickle/Xml.hs
--- old/hxt-9.3.1.18/src/Text/XML/HXT/Arrow/Pickle/Xml.hs 2019-06-30
15:23:38.000000000 +0200
+++ new/hxt-9.3.1.21/src/Text/XML/HXT/Arrow/Pickle/Xml.hs 2021-02-08
16:51:17.000000000 +0100
@@ -7,7 +7,7 @@
{- |
Module : Text.XML.HXT.Arrow.Pickle.Xml
- Copyright : Copyright (C) 2005-2012 Uwe Schmidt
+ Copyright : Copyright (C) 2005-2021 Uwe Schmidt
License : MIT
Maintainer : Uwe Schmidt (u...@fh-wedel.de)
@@ -440,10 +440,13 @@
--
-- If the first fails during unpickling, the whole pickler fails.
-- This can be used to check some properties of the input, e.g. whether
--- a given fixed attribute or a namespace declaration exists
('xpAddFixedAttr', 'xpAddNSDecl')
--- or to filter the input, e.g. to ignore some elements or attributes
('xpFilterCont', 'xpFilterAttr').
+-- a given fixed attribute or a namespace declaration exists
+-- ('xpAddFixedAttr', 'xpAddNSDecl')
+-- or to filter the input, e.g. to ignore some elements or attributes
+-- ('xpFilterCont', 'xpFilterAttr').
--
--- When pickling, this can be used to insert some fixed XML pieces, e.g.
namespace declarations,
+-- When pickling, this can be used to insert some fixed XML pieces,
+-- e.g. namespace declarations,
-- class attributes or other stuff.
xpSeq' :: PU () -> PU a -> PU a
@@ -1169,12 +1172,109 @@
instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e) => XmlPickler (a,b,c,d,e) where
xpickle = xp5Tuple xpickle xpickle xpickle xpickle xpickle
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f) => XmlPickler (a, b, c, d, e, f) where
+ xpickle = xp6Tuple xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g) => XmlPickler (a, b, c, d, e, f, g) where
+ xpickle = xp7Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h) => XmlPickler (a, b, c, d, e, f,
g, h) where
+ xpickle = xp8Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i) => XmlPickler (a, b,
c, d, e, f, g, h, i) where
+ xpickle = xp9Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j) =>
XmlPickler (a, b, c, d, e, f, g, h, i, j) where
+ xpickle = xp10Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k) => XmlPickler (a, b, c, d, e, f, g, h, i, j, k) where
+ xpickle = xp11Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l) => XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l)
where
+ xpickle = xp12Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m) => XmlPickler (a, b, c, d, e, f, g,
h, i, j, k, l, m) where
+ xpickle = xp13Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n) => XmlPickler (a, b, c,
d, e, f, g, h, i, j, k, l, m, n) where
+ xpickle = xp14Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o) =>
XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
+ xpickle = xp15Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p) => XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p)
where
+ xpickle = xp16Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q) => XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l,
m, n, o, p, q) where
+ xpickle = xp17Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r) => XmlPickler (a, b, c, d, e, f, g,
h, i, j, k, l, m, n, o, p, q, r) where
+ xpickle = xp18Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r, XmlPickler s) => XmlPickler (a, b, c,
d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s) where
+ xpickle = xp19Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r, XmlPickler s, XmlPickler t) =>
XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t) where
+ xpickle = xp20Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r, XmlPickler s, XmlPickler t,
XmlPickler u) => XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q,
r, s, t, u) where
+ xpickle = xp21Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r, XmlPickler s, XmlPickler t,
XmlPickler u, XmlPickler v) => XmlPickler (a, b, c, d, e, f, g, h, i, j, k, l,
m, n, o, p, q, r, s, t, u, v) where
+ xpickle = xp22Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r, XmlPickler s, XmlPickler t,
XmlPickler u, XmlPickler v, XmlPickler w) => XmlPickler (a, b, c, d, e, f, g,
h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w) where
+ xpickle = xp23Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle
+
+instance (XmlPickler a, XmlPickler b, XmlPickler c, XmlPickler d, XmlPickler
e, XmlPickler f, XmlPickler g, XmlPickler h, XmlPickler i, XmlPickler j,
XmlPickler k, XmlPickler l, XmlPickler m, XmlPickler n, XmlPickler o,
XmlPickler p, XmlPickler q, XmlPickler r, XmlPickler s, XmlPickler t,
XmlPickler u, XmlPickler v, XmlPickler w, XmlPickler x) => XmlPickler (a, b, c,
d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x) where
+ xpickle = xp24Tuple xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle xpickle
xpickle xpickle xpickle xpickle xpickle xpickle xpickle
+
instance XmlPickler a => XmlPickler [a] where
xpickle = xpList xpickle
instance XmlPickler a => XmlPickler (Maybe a) where
xpickle = xpOption xpickle
+-- | Pickler for an arbitrary datum of type 'Either'.
+instance (XmlPickler l, XmlPickler r) => XmlPickler (Either l r) where
+ xpickle = pick xpickle xpickle
+ where
+ pick :: PU l -> PU r -> PU (Either l r)
+ pick lPickler rPickler =
+ xpAlt (const 0 `either` const 1)
+ [ xpWrap ( Left -- Construct.
+ , \ (Left l ) -> l -- Deconstruct.
+ ) lPickler
+ , xpWrap ( Right -- Construct.
+ , \ (Right r) -> r -- Deconstruct.
+ ) rPickler
+ ]
+
+-- ------------------------------------------------------------
+
+{-
+-- Thanks to treeowl:
+
+-- This script was used to generate the tuple instances:
+
+import Data.List (intercalate)
+
+-- | Generates XmlPickler instances for tuples of size 4 <= n <= 24
+mkInstance :: Int -> String
+mkInstance n =
+ "instance (" ++ constrainsts ++ ") => XmlPickler (" ++ tuple ++ ")
where\n" ++
+ " xpickle = xp" ++ show n ++ "Tuple " ++ xpickleStrings
+ where
+ xpickleStrings = intercalate " " (replicate n "xpickle")
+ tuple = intercalate ", " letters
+ letters = map (:[]) $ take n ['a'..'z']
+ constrainsts = intercalate ", " $ map oneConstr letters
+ oneConstr a = "XmlPickler " ++ a
+
+mkInstances :: String
+mkInstances = intercalate "\n\n" $ mkInstance <$> [6..24]
+-}
+
-- ------------------------------------------------------------
{- begin embeded test cases
