Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-ListLike for openSUSE:Factory checked in at 2023-01-18 13:09:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-ListLike (Old) and /work/SRC/openSUSE:Factory/.ghc-ListLike.new.32243 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-ListLike" Wed Jan 18 13:09:34 2023 rev:4 rq:1059046 version:4.7.8 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-ListLike/ghc-ListLike.changes 2022-08-01 21:29:31.497506019 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-ListLike.new.32243/ghc-ListLike.changes 2023-01-18 13:09:41.856427904 +0100 @@ -1,0 +2,7 @@ +Tue Nov 15 13:48:19 UTC 2022 - Peter Simons <[email protected]> + +- Update ListLike to version 4.7.8. + Upstream has not updated the file "CHANGELOG.md" since the last + release. + +------------------------------------------------------------------- Old: ---- ListLike-4.7.7.tar.gz ListLike.cabal New: ---- ListLike-4.7.8.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-ListLike.spec ++++++ --- /var/tmp/diff_new_pack.f99EcA/_old 2023-01-18 13:09:42.608432223 +0100 +++ /var/tmp/diff_new_pack.f99EcA/_new 2023-01-18 13:09:42.612432246 +0100 @@ -19,13 +19,12 @@ %global pkg_name ListLike %bcond_with tests Name: ghc-%{pkg_name} -Version: 4.7.7 +Version: 4.7.8 Release: 0 Summary: Generalized support for list-like structures 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-array-devel BuildRequires: ghc-bytestring-devel @@ -68,7 +67,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ ListLike-4.7.7.tar.gz -> ListLike-4.7.8.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ListLike-4.7.7/ListLike.cabal new/ListLike-4.7.8/ListLike.cabal --- old/ListLike-4.7.7/ListLike.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/ListLike-4.7.8/ListLike.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ Name: ListLike -Version: 4.7.7 +Version: 4.7.8 License: BSD3 Maintainer: David Fox <[email protected]>, Andreas Abel Author: John Goerzen @@ -69,7 +69,7 @@ ,bytestring >= 0.9.1 && < 0.12 ,array >= 0.3 && < 0.6 ,text >= 0.11 && < 1.3 || == 2.0.* - ,vector >= 0.5 && < 0.13 + ,vector >= 0.5 && < 0.14 ,dlist >= 0.7 && < 1.1 ,fmlist >= 0.8 && < 0.10 ,utf8-string >= 0.3.1 && < 1.1 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ListLike-4.7.7/src/Data/ListLike/Base.hs new/ListLike-4.7.8/src/Data/ListLike/Base.hs --- old/ListLike-4.7.7/src/Data/ListLike/Base.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/ListLike-4.7.8/src/Data/ListLike/Base.hs 2001-09-09 03:46:40.000000000 +0200 @@ -513,10 +513,11 @@ {- | Like 'insert', but with a custom comparison function -} insertBy :: (item -> item -> Ordering) -> item -> full -> full - insertBy cmp x ys - | null ys = singleton x - | otherwise = case cmp x (head ys) of - GT -> cons (head ys) (insertBy cmp x (tail ys)) + insertBy cmp x ys = + case uncons ys of + Nothing -> singleton x + Just (ys_head,ys_tail) -> case cmp x ys_head of + GT -> cons ys_head (insertBy cmp x ys_tail) _ -> cons x ys ------------------------------ Generic Operations diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ListLike-4.7.7/src/Data/ListLike/DList.hs new/ListLike-4.7.8/src/Data/ListLike/DList.hs --- old/ListLike-4.7.7/src/Data/ListLike/DList.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/ListLike-4.7.8/src/Data/ListLike/DList.hs 2001-09-09 03:46:40.000000000 +0200 @@ -6,6 +6,8 @@ module Data.ListLike.DList () where +import qualified Prelude + import Data.ListLike.Base import Data.ListLike.FoldableLL import Data.ListLike.String @@ -21,6 +23,7 @@ import Control.Category import Data.Char (Char) + instance FoldableLL (DList a) a where foldl = F.foldl foldr = D.foldr @@ -56,6 +59,11 @@ --toList = D.toList --fromList = D.fromList replicate = D.replicate + uncons xs = case xs of + D.Nil -> Prelude.Nothing + D.Cons d_head l_tail -> Prelude.Just (d_head,fromList l_tail) + _ -> Prelude.error "Workaround for missing COMPLETE pragma on dlist patterns" + instance StringLike (DList Char) where toString = D.toList
