August 2022 - openSUSE Commits - openSUSE Mailing Lists

commit ghc-hslua-module-path for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-hslua-module-path for openSUSE:Factory checked in at 2022-08-01 21:28:46 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hslua-module-path (Old) and /work/SRC/openSUSE:Factory/.ghc-hslua-module-path.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-hslua-module-path" Mon Aug 1 21:28:46 2022 rev:4 rq:985816 version:1.0.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hslua-module-path/ghc-hslua-module-path.changes 2022-02-11 23:10:59.539220646 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-hslua-module-path.new.1533/ghc-hslua-module-path.changes 2022-08-01 21:28:52.721394773 +0200 @@ -1,0 +2,11 @@ +Sat Feb 19 14:38:21 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update hslua-module-path to version 1.0.2. + ## hslua-module-path-1.0.2 + + Released 2022-02-19. + + - Adjusted package bounds, for hslua-core, hslua-marshalling, + and hslua-packaging. + +------------------------------------------------------------------- Old: ---- hslua-module-path-1.0.1.tar.gz hslua-module-path.cabal New: ---- hslua-module-path-1.0.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hslua-module-path.spec ++++++ --- /var/tmp/diff_new_pack.wcRPMs/_old 2022-08-01 21:28:53.253396299 +0200 +++ /var/tmp/diff_new_pack.wcRPMs/_new 2022-08-01 21:28:53.277396368 +0200 @@ -19,13 +19,12 @@ %global pkg_name hslua-module-path %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.0.1 +Version: 1.0.2 Release: 0 Summary: Lua module to work with file paths License: MIT URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal… BuildRequires: ghc-Cabal-devel BuildRequires: ghc-filepath-devel BuildRequires: ghc-hslua-core-devel @@ -56,7 +55,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ hslua-module-path-1.0.1.tar.gz -> hslua-module-path-1.0.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-module-path-1.0.1/CHANGELOG.md new/hslua-module-path-1.0.2/CHANGELOG.md --- old/hslua-module-path-1.0.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-module-path-1.0.2/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -2,6 +2,13 @@ `hslua-module-paths` uses [PVP Versioning][]. +## hslua-module-path-1.0.2 + +Released 2022-02-19. + +- Adjusted package bounds, for hslua-core, hslua-marshalling, + and hslua-packaging. + ## hslua-module-path-1.0.1 - Bumped upper bound of hslua-core and hslua-marshalling to diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-module-path-1.0.1/hslua-module-path.cabal new/hslua-module-path-1.0.2/hslua-module-path.cabal --- old/hslua-module-path-1.0.1/hslua-module-path.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-module-path-1.0.2/hslua-module-path.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 2.2 name: hslua-module-path -version: 1.0.1 +version: 1.0.2 synopsis: Lua module to work with file paths. description: Lua module to work with file paths in a platform independent way. @@ -33,9 +33,9 @@ common common-options build-depends: base >= 4.9.1 && < 5 , filepath >= 1.4 && < 1.5 - , hslua-core >= 2.1 && < 2.2 - , hslua-marshalling >= 2.0 && < 2.2 - , hslua-packaging >= 2.0 && < 2.2 + , hslua-core >= 2.1 && < 2.3 + , hslua-marshalling >= 2.1 && < 2.3 + , hslua-packaging >= 2.1 && < 2.3 , text >= 1.2 && < 2.1 ghc-options: -Wall

1 0

commit ghc-hslua-classes for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-hslua-classes for openSUSE:Factory checked in at 2022-08-01 21:28:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hslua-classes (Old) and /work/SRC/openSUSE:Factory/.ghc-hslua-classes.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-hslua-classes" Mon Aug 1 21:28:45 2022 rev:3 rq:985815 version:2.2.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hslua-classes/ghc-hslua-classes.changes 2022-02-11 23:10:57.555214908 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-hslua-classes.new.1533/ghc-hslua-classes.changes 2022-08-01 21:28:51.769392041 +0200 @@ -1,0 +2,9 @@ +Sat Feb 19 14:38:18 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update hslua-classes to version 2.2.0. + Upstream has edited the change log file since the last release in + a non-trivial way, i.e. they did more than just add a new entry + at the top. You can review the file at: + http://hackage.haskell.org/package/hslua-classes-2.2.0/src/CHANGELOG.md + +------------------------------------------------------------------- Old: ---- hslua-classes-2.1.0.tar.gz New: ---- hslua-classes-2.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hslua-classes.spec ++++++ --- /var/tmp/diff_new_pack.ZmL7WO/_old 2022-08-01 21:28:52.349393706 +0200 +++ /var/tmp/diff_new_pack.ZmL7WO/_new 2022-08-01 21:28:52.361393740 +0200 @@ -19,7 +19,7 @@ %global pkg_name hslua-classes %bcond_with tests Name: ghc-%{pkg_name} -Version: 2.1.0 +Version: 2.2.0 Release: 0 Summary: Type classes for HsLua License: MIT ++++++ hslua-classes-2.1.0.tar.gz -> hslua-classes-2.2.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-classes-2.1.0/CHANGELOG.md new/hslua-classes-2.2.0/CHANGELOG.md --- old/hslua-classes-2.1.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-classes-2.2.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -2,9 +2,16 @@ `hslua-classes` uses [PVP Versioning][]. +## hslua-classes-2.2.0 + +Released 2022-02-19. + +- Relaxed upper bounds, allowing hslua-core-2.2.0 and + hslua-marshalling-2.2.0. + ## hslua-classes-2.1.0 -Released 29-01-2022. +Released 2022-01-29. - Updated to hslua-core 2.1 and hslua-marshalling 2.1. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/hslua-classes-2.1.0/hslua-classes.cabal new/hslua-classes-2.2.0/hslua-classes.cabal --- old/hslua-classes-2.1.0/hslua-classes.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/hslua-classes-2.2.0/hslua-classes.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 2.2 name: hslua-classes -version: 2.1.0 +version: 2.2.0 synopsis: Type classes for HsLua description: Type classes for convenient marshalling and calling of Lua functions. @@ -37,8 +37,8 @@ , bytestring >= 0.10.2 && < 0.12 , containers >= 0.5.9 && < 0.7 , exceptions >= 0.8 && < 0.11 - , hslua-core >= 2.1 && < 2.2 - , hslua-marshalling >= 2.1 && < 2.2 + , hslua-core >= 2.1 && < 2.3 + , hslua-marshalling >= 2.1 && < 2.3 , text >= 1.2 && < 2.1 ghc-options: -Wall -Wincomplete-record-updates

1 0

commit ghc-hjsmin for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-hjsmin for openSUSE:Factory checked in at 2022-08-01 21:28:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-hjsmin (Old) and /work/SRC/openSUSE:Factory/.ghc-hjsmin.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-hjsmin" Mon Aug 1 21:28:44 2022 rev:5 rq:985814 version:0.2.0.4 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-hjsmin/ghc-hjsmin.changes 2022-02-11 23:10:54.595206347 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-hjsmin.new.1533/ghc-hjsmin.changes 2022-08-01 21:28:49.841386510 +0200 @@ -1,0 +2,6 @@ +Wed Mar 23 10:50:51 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update hjsmin to version 0.2.0.4 revision 2. + Upstream has revised the Cabal build instructions on Hackage. + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-hjsmin.spec ++++++ --- /var/tmp/diff_new_pack.SNHwxc/_old 2022-08-01 21:28:51.357390859 +0200 +++ /var/tmp/diff_new_pack.SNHwxc/_new 2022-08-01 21:28:51.361390871 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-hjsmin # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -25,7 +25,7 @@ License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal… +Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/2.cabal… BuildRequires: ghc-Cabal-devel BuildRequires: ghc-bytestring-devel BuildRequires: ghc-language-javascript-devel ++++++ hjsmin.cabal ++++++ --- /var/tmp/diff_new_pack.SNHwxc/_old 2022-08-01 21:28:51.437391089 +0200 +++ /var/tmp/diff_new_pack.SNHwxc/_new 2022-08-01 21:28:51.441391101 +0200 @@ -1,6 +1,6 @@ name: hjsmin version: 0.2.0.4 -x-revision: 1 +x-revision: 2 license: BSD3 license-file: LICENSE author: Alan Zimmerman <alan.zimm(a)gmail.com> @@ -46,7 +46,7 @@ other-modules: Text.Jasmine build-depends: base >= 4.8 && < 5 - , bytestring == 0.10.* + , bytestring , language-javascript , optparse-applicative >= 0.7 , text

1 0

commit ghc-haddock-library for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-haddock-library for openSUSE:Factory checked in at 2022-08-01 21:28:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-haddock-library (Old) and /work/SRC/openSUSE:Factory/.ghc-haddock-library.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-haddock-library" Mon Aug 1 21:28:44 2022 rev:18 rq:985813 version:1.10.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-haddock-library/ghc-haddock-library.changes 2022-02-11 23:10:51.983198793 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-haddock-library.new.1533/ghc-haddock-library.changes 2022-08-01 21:28:48.881383756 +0200 @@ -1,0 +2,6 @@ +Thu Mar 3 19:26:44 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update haddock-library to version 1.10.0 revision 3. + Upstream has revised the Cabal build instructions on Hackage. + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-haddock-library.spec ++++++ --- /var/tmp/diff_new_pack.vBdFBr/_old 2022-08-01 21:28:49.389385214 +0200 +++ /var/tmp/diff_new_pack.vBdFBr/_new 2022-08-01 21:28:49.393385225 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-haddock-library # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -25,7 +25,7 @@ License: BSD-2-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/2.cabal… +Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/3.cabal… BuildRequires: ghc-Cabal-devel BuildRequires: ghc-bytestring-devel BuildRequires: ghc-containers-devel ++++++ haddock-library.cabal ++++++ --- /var/tmp/diff_new_pack.vBdFBr/_old 2022-08-01 21:28:49.449385386 +0200 +++ /var/tmp/diff_new_pack.vBdFBr/_new 2022-08-01 21:28:49.453385397 +0200 @@ -1,7 +1,7 @@ cabal-version: 2.2 name: haddock-library version: 1.10.0 -x-revision: 2 +x-revision: 3 synopsis: Library exposing some functionality of Haddock. description: Haddock is a documentation-generation tool for Haskell @@ -43,7 +43,7 @@ , bytestring , containers ^>= 0.4.2.1 || ^>= 0.5.0.0 || ^>= 0.6.0.1 , transformers - , text ^>= 1.2.3.0 + , text ^>= 1.2.3.0 || ^>= 2.0 , parsec ^>= 3.1.13.0 ghc-options: -funbox-strict-fields -Wall

1 0

commit ghc-foundation for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-foundation for openSUSE:Factory checked in at 2022-08-01 21:28:42 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-foundation (Old) and /work/SRC/openSUSE:Factory/.ghc-foundation.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-foundation" Mon Aug 1 21:28:42 2022 rev:7 rq:985812 version:0.0.28 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-foundation/ghc-foundation.changes 2022-02-11 23:10:47.551185974 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-foundation.new.1533/ghc-foundation.changes 2022-08-01 21:28:47.729380451 +0200 @@ -1,0 +2,6 @@ +Thu Mar 3 03:43:42 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update foundation to version 0.0.28. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- foundation-0.0.26.1.tar.gz foundation.cabal New: ---- foundation-0.0.28.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-foundation.spec ++++++ --- /var/tmp/diff_new_pack.WEA0HK/_old 2022-08-01 21:28:48.309382115 +0200 +++ /var/tmp/diff_new_pack.WEA0HK/_new 2022-08-01 21:28:48.313382127 +0200 @@ -19,13 +19,12 @@ %global pkg_name foundation %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.0.26.1 +Version: 0.0.28 Release: 0 Summary: Alternative prelude with batteries and no dependencies License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal… BuildRequires: ghc-Cabal-devel BuildRequires: ghc-basement-devel BuildRequires: ghc-rpm-macros @@ -64,7 +63,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ foundation-0.0.26.1.tar.gz -> foundation-0.0.28.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/foundation-0.0.26.1/Foundation/Time/StopWatch.hs new/foundation-0.0.28/Foundation/Time/StopWatch.hs --- old/foundation-0.0.26.1/Foundation/Time/StopWatch.hs 2019-09-02 05:58:08.000000000 +0200 +++ new/foundation-0.0.28/Foundation/Time/StopWatch.hs 2022-03-03 03:54:04.000000000 +0100 @@ -69,8 +69,11 @@ startPrecise = do #if defined(mingw32_HOST_OS) blk <- newPinned 16 - _ <- withMutablePtr blk $ \p -> - c_QueryPerformanceCounter (castPtr p `ptrPlus` 8) + _ <- withMutablePtr blk $ \p -> do + ticks <- integralDownsize <$> queryPerformanceCounter :: IO Word64 + let p64 = castPtr p :: Ptr Word64 + poke (p64 `ptrPlus` 8) ticks + pure p pure (StopWatchPrecise blk) #elif defined(darwin_HOST_OS) StopWatchPrecise <$> sysMacos_absolute_time @@ -86,9 +89,8 @@ stopPrecise (StopWatchPrecise blk) = do #if defined(mingw32_HOST_OS) withMutablePtr blk $ \p -> do - _ <- c_QueryPerformanceCounter (castPtr p) + end <- integralDownsize <$> queryPerformanceCounter let p64 = castPtr p :: Ptr Word64 - end <- peek p64 start <- peek (p64 `ptrPlus` 8) pure $ NanoSeconds ((end - start) * secondInNano `div` initPrecise) #elif defined(darwin_HOST_OS) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/foundation-0.0.26.1/foundation.cabal new/foundation-0.0.28/foundation.cabal --- old/foundation-0.0.26.1/foundation.cabal 2021-04-25 03:20:06.000000000 +0200 +++ new/foundation-0.0.28/foundation.cabal 2022-03-03 04:08:44.000000000 +0100 @@ -1,5 +1,5 @@ name: foundation -version: 0.0.26.1 +version: 0.0.28 synopsis: Alternative prelude with batteries and no dependencies description: A custom prelude with no dependencies apart from base. @@ -196,7 +196,7 @@ BangPatterns DeriveDataTypeable - if impl(ghc < 8.0) || impl(ghcjs) + if impl(ghc < 8.8) || impl(ghcjs) buildable: False else build-depends: base @@ -206,7 +206,7 @@ if arch(i386) extra-libraries: gcc - build-depends: basement == 0.0.12 + build-depends: basement == 0.0.14 -- FIXME add suport for armel mipsel -- CPP-options: -DARCH_IS_LITTLE_ENDIAN @@ -216,10 +216,8 @@ cpp-options: -DARCH_IS_LITTLE_ENDIAN else cpp-options: -DARCH_IS_UNKNOWN_ENDIAN - ghc-options: -Wall -fwarn-tabs + ghc-options: -Wall -fwarn-tabs -Wno-redundant-constraints default-language: Haskell2010 - if impl(ghc >= 8.0) - ghc-options: -Wno-redundant-constraints if flag(bounds-check) cpp-options: -DFOUNDATION_BOUNDS_CHECK @@ -251,10 +249,8 @@ build-depends: base > 0 && < 1000 , basement , foundation - ghc-options: -Wall -fno-warn-orphans -fno-warn-missing-signatures + ghc-options: -Wall -fno-warn-orphans -fno-warn-missing-signatures -Wno-redundant-constraints default-language: Haskell2010 - if impl(ghc >= 8.0) - ghc-options: -Wno-redundant-constraints test-suite foundation-link type: exitcode-stdio-1.0

1 0

commit ghc-feed for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-feed for openSUSE:Factory checked in at 2022-08-01 21:28:41 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-feed (Old) and /work/SRC/openSUSE:Factory/.ghc-feed.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-feed" Mon Aug 1 21:28:41 2022 rev:9 rq:985811 version:1.3.2.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-feed/ghc-feed.changes 2021-12-19 17:35:01.496289808 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-feed.new.1533/ghc-feed.changes 2022-08-01 21:28:46.193376045 +0200 @@ -1,0 +2,8 @@ +Sat Mar 19 23:15:48 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update feed to version 1.3.2.1. + #### 1.3.2.1 + * text 2.0 support, thanks to Alexander Batischev. + * Moved the repository to https://github.com/haskell-party/ + +------------------------------------------------------------------- Old: ---- feed-1.3.2.0.tar.gz feed.cabal New: ---- feed-1.3.2.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-feed.spec ++++++ --- /var/tmp/diff_new_pack.x67vdr/_old 2022-08-01 21:28:46.901378075 +0200 +++ /var/tmp/diff_new_pack.x67vdr/_new 2022-08-01 21:28:46.905378087 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-feed # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,13 +19,12 @@ %global pkg_name feed %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.3.2.0 +Version: 1.3.2.1 Release: 0 Summary: Interfacing with RSS (v 0.9x, 2.x, 1.0) + Atom feeds License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/3.cabal… BuildRequires: ghc-Cabal-devel BuildRequires: ghc-base-compat-devel BuildRequires: ghc-bytestring-devel @@ -57,7 +56,7 @@ and just generally working with a concrete representation of feeds in Haskell. See here for an example of how to create an Atom feed: -<https://github.com/bergmark/feed/blob/master/tests/Example/CreateAtom.hs> +<https://github.com/haskell-party/feed/blob/master/tests/Example/CreateAtom.…> For basic reading and editing of feeds, consult the documentation of the Text.Feed.* hierarchy. @@ -74,7 +73,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ feed-1.3.2.0.tar.gz -> feed-1.3.2.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/feed-1.3.2.0/CHANGELOG.md new/feed-1.3.2.1/CHANGELOG.md --- old/feed-1.3.2.0/CHANGELOG.md 2021-03-10 07:17:26.000000000 +0100 +++ new/feed-1.3.2.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,3 +1,7 @@ +#### 1.3.2.1 +* text 2.0 support, thanks to Alexander Batischev. +* Moved the repository to https://github.com/haskell-party/ + ### 1.3.2.0 * Expose RSS/Atom item content through queries by using `getItemContent`. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/feed-1.3.2.0/README.lhs new/feed-1.3.2.1/README.lhs --- old/feed-1.3.2.0/README.lhs 2021-03-10 07:17:26.000000000 +0100 +++ new/feed-1.3.2.1/README.lhs 2001-09-09 03:46:40.000000000 +0200 @@ -1,7 +1,8 @@ # Feed [![feed](https://img.shields.io/hackage/v/feed.svg)](http://hackage.haskell.org/package/feed) -[![Build Status](https://travis-ci.org/bergmark/feed.svg?branch=master)](https://tra… +![Build Status](https://github.com/haskell-party/feed/actions/workflows/haskell-ci.… + ## Goal @@ -194,7 +195,7 @@ -- </feed> ``` -See [here](https://github.com/bergmark/feed/blob/master/tests/Example/CreateAtom… for this content as an uninterrupted running example. +See [here](https://github.com/haskell-party/feed/blob/master/tests/Example/Creat… for this content as an uninterrupted running example. ```haskell -- Dummy main needed to compile this file with markdown-unlit diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/feed-1.3.2.0/README.md new/feed-1.3.2.1/README.md --- old/feed-1.3.2.0/README.md 2021-03-10 07:17:26.000000000 +0100 +++ new/feed-1.3.2.1/README.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,7 +1,8 @@ # Feed [![feed](https://img.shields.io/hackage/v/feed.svg)](http://hackage.haskell.org/package/feed) -[![Build Status](https://travis-ci.org/bergmark/feed.svg?branch=master)](https://tra… +![Build Status](https://github.com/haskell-party/feed/actions/workflows/haskell-ci.… + ## Goal @@ -194,7 +195,7 @@ -- </feed> ``` -See [here](https://github.com/bergmark/feed/blob/master/tests/Example/CreateAtom… for this content as an uninterrupted running example. +See [here](https://github.com/haskell-party/feed/blob/master/tests/Example/Creat… for this content as an uninterrupted running example. ```haskell -- Dummy main needed to compile this file with markdown-unlit diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/feed-1.3.2.0/feed.cabal new/feed-1.3.2.1/feed.cabal --- old/feed-1.3.2.0/feed.cabal 2021-03-11 05:47:51.000000000 +0100 +++ new/feed-1.3.2.1/feed.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: feed -version: 1.3.2.0 +version: 1.3.2.1 license: BSD3 license-file: LICENSE category: Text @@ -13,14 +13,14 @@ of feeds in Haskell. . See here for an example of how to create an Atom feed: - <https://github.com/bergmark/feed/blob/master/tests/Example/CreateAtom.hs> + <https://github.com/haskell-party/feed/blob/master/tests/Example/CreateAtom.…> . For basic reading and editing of feeds, consult the documentation of the Text.Feed.* hierarchy. author: Sigbjorn Finne <sof(a)forkIO.com> maintainer: Adam Bergmark <adam(a)bergmark.nl> -homepage: https://github.com/bergmark/feed -bug-reports: https://github.com/bergmark/feed/issues +homepage: https://github.com/haskell-party/feed +bug-reports: https://github.com/haskell-party/feed/issues cabal-version: 2.0 build-type: Simple tested-with: @@ -31,8 +31,10 @@ , GHC == 8.2.2 , GHC == 8.4.4 , GHC == 8.6.5 - , GHC == 8.8.1 - , GHC == 8.10.1 + , GHC == 8.8.4 + , GHC == 8.10.7 + , GHC == 9.0.1 + , GHC == 9.2.1 data-files: tests/files/*.xml extra-source-files: @@ -41,7 +43,7 @@ source-repository head type: git - location: https://github.com/bergmark/feed.git + location: https://github.com/haskell-party/feed.git library ghc-options: -Wall @@ -77,14 +79,14 @@ Data.Text.Util Data.XML.Compat build-depends: - base >= 4 && < 4.15 - , base-compat >= 0.9 && < 0.12 - , bytestring >= 0.9 && < 0.11 + base >= 4 && < 4.17 + , base-compat >= 0.9 && < 0.13 + , bytestring >= 0.9 && < 0.12 , old-locale == 1.0.* , old-time >= 1 && < 1.2 , safe == 0.3.* - , text < 1.3 - , time < 1.10 + , text < 1.3 || ==2.0.* + , time < 1.12 , time-locale-compat == 0.1.* , utf8-string < 1.1 , xml-types >= 0.3.6 && < 0.4 @@ -115,16 +117,16 @@ Text.RSS.Tests Text.RSS.Utils build-depends: - base >= 4.6 && < 4.15 - , base-compat >= 0.9 && < 0.12 + base >= 4.6 && < 4.17 + , base-compat >= 0.9 && < 0.13 , HUnit >= 1.2 && < 1.7 , feed , old-time >= 1 && < 1.2 , syb , test-framework == 0.8.* , test-framework-hunit == 0.3.* - , text < 1.3 - , time < 1.10 + , text < 1.3 || ==2.0.* + , time < 1.12 , xml-types >= 0.3.6 && < 0.4 , xml-conduit >= 1.3 && < 1.10 @@ -137,8 +139,8 @@ OverloadedStrings type: exitcode-stdio-1.0 build-depends: - base >= 4.6 && < 4.15 - , base-compat >= 0.9 && < 0.12 + base >= 4.6 + , base-compat >= 0.9 && < 0.13 , text , feed , xml-conduit @@ -151,8 +153,10 @@ main-is: doctest-driver.hs type: exitcode-stdio-1.0 default-language: Haskell2010 + if impl(ghc < 8) + buildable: False build-depends: - base >= 4 && < 4.15 + base >= 4.6 , doctest , doctest-driver-gen , feed

1 0

commit ghc-email-validate for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-email-validate for openSUSE:Factory checked in at 2022-08-01 21:28:41 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-email-validate (Old) and /work/SRC/openSUSE:Factory/.ghc-email-validate.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-email-validate" Mon Aug 1 21:28:41 2022 rev:9 rq:985810 version:2.3.2.16 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-email-validate/ghc-email-validate.changes 2022-02-15 23:57:55.716319928 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-email-validate.new.1533/ghc-email-validate.changes 2022-08-01 21:28:44.993372602 +0200 @@ -1,0 +2,6 @@ +Sun Mar 20 20:34:13 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update email-validate to version 2.3.2.16. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- email-validate-2.3.2.15.tar.gz New: ---- email-validate-2.3.2.16.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-email-validate.spec ++++++ --- /var/tmp/diff_new_pack.bLo6Vb/_old 2022-08-01 21:28:45.793374897 +0200 +++ /var/tmp/diff_new_pack.bLo6Vb/_new 2022-08-01 21:28:45.797374908 +0200 @@ -19,7 +19,7 @@ %global pkg_name email-validate %bcond_with tests Name: ghc-%{pkg_name} -Version: 2.3.2.15 +Version: 2.3.2.16 Release: 0 Summary: Email address validation License: BSD-3-Clause ++++++ email-validate-2.3.2.15.tar.gz -> email-validate-2.3.2.16.tar.gz ++++++ ++++ 1632 lines of diff (skipped)

1 0

commit ghc-doclayout for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-doclayout for openSUSE:Factory checked in at 2022-08-01 21:28:38 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-doclayout (Old) and /work/SRC/openSUSE:Factory/.ghc-doclayout.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-doclayout" Mon Aug 1 21:28:38 2022 rev:8 rq:985808 version:0.4 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-doclayout/ghc-doclayout.changes 2021-11-11 21:36:39.528899014 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-doclayout.new.1533/ghc-doclayout.changes 2022-08-01 21:28:43.049367024 +0200 @@ -1,0 +2,41 @@ +Sat Apr 2 22:30:30 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update doclayout to version 0.4. + ## 0.4 + + * Expose `unfoldD` [API change]. + * Remove `realLengthNoShortcut`, `isEmojiModifier`, and + `isEmojiJoiner` [API change] (Stephen Morgan). + * Add new exported functions `realLengthNarrowContext`, + `realLengthWideContext`, `realLengthNarrowContextNoShortcut`, + `realLengthWideContextNoShortcut`, `isSkinToneModifier`, `isZWJ` + [API change] (Stephen Morgan). + * Compute `realLength` strictly. + * Make `getOffset` stricter. + * Drop support for ghc <= 8.4, add test for ghc 9.2. + * Don't collapse the CarriageReturn + Newline combination (#20). + We want to ensure that a literal starting with a Newline + doesn't lose the newline if it occurs after a CarriageReturn. + This affects code blocks in pandoc that begin with newlines. + * Improve performance of NoShortcut code (Stephen Morgan). + * Simplify emoji processing (Stephen Morgan). + * Add benchmarking for code with no shortcuts (Stephen Morgan). + * Add unicodeWidth.inc to cabal file. + * Fix `offset`, `minOffset`, `updateColumn` so they don't re-render. + * Get unicode block widths directly from the Unicode specification, rather + than writing it out ourselves (Stephen Morgan). + * Resolve the width of ambiguous characters based on their context + (Stephen Morgan). + * Spacing marks should have nonzero width, even though they are combining + characters (Stephen Morgan). + * Add shortcuts for extended Latin, Arabic, Cyrillic, Greek, + Devangari, Bengali, Korean, Telugu, and Tamil (Stephen Morgan). + * Fix location of extra-source-files in cabal. + * update.hs: require text package + * Handle emoji variation modifiers specially, so the keypad emoji can be + ignored (Stephen Morgan). This results in a 16% speedup of realLength + on ascii text. + * Add benchmarks for all scripts used by more than 50 million people, plus + a couple more. (#9, Stephen Morgan). + +------------------------------------------------------------------- Old: ---- doclayout-0.3.1.1.tar.gz New: ---- doclayout-0.4.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-doclayout.spec ++++++ --- /var/tmp/diff_new_pack.5lgvAw/_old 2022-08-01 21:28:43.953369618 +0200 +++ /var/tmp/diff_new_pack.5lgvAw/_new 2022-08-01 21:28:43.961369641 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-doclayout # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -19,7 +19,7 @@ %global pkg_name doclayout %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.3.1.1 +Version: 0.4 Release: 0 Summary: A prettyprinting library for laying out text documents License: BSD-3-Clause ++++++ doclayout-0.3.1.1.tar.gz -> doclayout-0.4.tar.gz ++++++ ++++ 2639 lines of diff (skipped)

1 0

commit ghc-ed25519 for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-ed25519 for openSUSE:Factory checked in at 2022-08-01 21:28:39 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-ed25519 (Old) and /work/SRC/openSUSE:Factory/.ghc-ed25519.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-ed25519" Mon Aug 1 21:28:39 2022 rev:14 rq:985809 version:0.0.5.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-ed25519/ghc-ed25519.changes 2022-02-11 23:10:43.531174347 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-ed25519.new.1533/ghc-ed25519.changes 2022-08-01 21:28:44.281370559 +0200 @@ -1,0 +2,6 @@ +Thu Mar 17 05:37:05 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update ed25519 to version 0.0.5.0 revision 5. + Upstream has revised the Cabal build instructions on Hackage. + +------------------------------------------------------------------- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-ed25519.spec ++++++ --- /var/tmp/diff_new_pack.k0aK6Z/_old 2022-08-01 21:28:44.789372016 +0200 +++ /var/tmp/diff_new_pack.k0aK6Z/_new 2022-08-01 21:28:44.793372028 +0200 @@ -25,7 +25,7 @@ License: MIT URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/4.cabal… +Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/5.cabal… BuildRequires: ghc-Cabal-devel BuildRequires: ghc-bytestring-devel BuildRequires: ghc-rpm-macros ++++++ ed25519.cabal ++++++ --- /var/tmp/diff_new_pack.k0aK6Z/_old 2022-08-01 21:28:44.837372154 +0200 +++ /var/tmp/diff_new_pack.k0aK6Z/_new 2022-08-01 21:28:44.841372165 +0200 @@ -1,6 +1,6 @@ name: ed25519 version: 0.0.5.0 -x-revision: 4 +x-revision: 5 category: Cryptography license: MIT synopsis: Ed25519 cryptographic signatures @@ -61,9 +61,9 @@ library build-depends: - ghc-prim >= 0.1 && < 0.8, + ghc-prim >= 0.1 && < 0.9, base >= 4 && < 5, - bytestring >= 0.9 && < 0.11 + bytestring >= 0.9 && < 0.12 exposed-modules: Crypto.Sign.Ed25519 @@ -97,7 +97,7 @@ else build-depends: base >= 4 && < 5, - bytestring >= 0.9 && < 0.11, + bytestring >= 0.9 && < 0.12, QuickCheck >= 2.4 && < 2.9, ed25519 @@ -140,7 +140,7 @@ type: exitcode-stdio-1.0 build-depends: base >= 4 && < 5, - bytestring >= 0.9 && < 0.11, + bytestring >= 0.9 && < 0.12, criterion >= 0.8 && < 1.2, deepseq >= 1.3 && < 1.5, ed25519

1 0

commit ghc-data-clist for openSUSE:Factory
by Source-Sync 01 Aug '22

01 Aug '22

Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-data-clist for openSUSE:Factory checked in at 2022-08-01 21:28:38 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-data-clist (Old) and /work/SRC/openSUSE:Factory/.ghc-data-clist.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-data-clist" Mon Aug 1 21:28:38 2022 rev:5 rq:985807 version:0.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-data-clist/ghc-data-clist.changes 2020-12-22 11:38:23.397435603 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-data-clist.new.1533/ghc-data-clist.changes 2022-08-01 21:28:41.361362181 +0200 @@ -1,0 +2,6 @@ +Fri Feb 25 08:18:33 UTC 2022 - Peter Simons <psimons(a)suse.com> + +- Update data-clist to version 0.2. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- data-clist-0.1.2.3.tar.gz data-clist.cabal New: ---- data-clist-0.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-data-clist.spec ++++++ --- /var/tmp/diff_new_pack.UAcEK1/_old 2022-08-01 21:28:41.957363891 +0200 +++ /var/tmp/diff_new_pack.UAcEK1/_new 2022-08-01 21:28:41.961363903 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-data-clist # -# Copyright (c) 2020 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,19 +17,21 @@ %global pkg_name data-clist +%bcond_with tests Name: ghc-%{pkg_name} -Version: 0.1.2.3 +Version: 0.2 Release: 0 Summary: Simple functional ring type License: BSD-3-Clause URL: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… -Source1: https://hackage.haskell.org/package/%{pkg_name}-%{version}/revision/1.cabal… BuildRequires: ghc-Cabal-devel -BuildRequires: ghc-QuickCheck-devel BuildRequires: ghc-deepseq-devel BuildRequires: ghc-rpm-macros ExcludeArch: %{ix86} +%if %{with tests} +BuildRequires: ghc-QuickCheck-devel +%endif %description Simple functional bidirectional ring type. Given that the ring terminiology @@ -48,7 +50,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build @@ -56,6 +57,9 @@ %install %ghc_lib_install +%check +%cabal_test + %post devel %ghc_pkg_recache ++++++ data-clist-0.1.2.3.tar.gz -> data-clist-0.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/data-clist-0.1.2.3/data-clist.cabal new/data-clist-0.2/data-clist.cabal --- old/data-clist-0.1.2.3/data-clist.cabal 2019-07-23 22:37:55.000000000 +0200 +++ new/data-clist-0.2/data-clist.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,3 +1,4 @@ +Cabal-Version: 2.2 Name: data-clist Synopsis: Simple functional ring type. Description: Simple functional bidirectional ring type. @@ -5,14 +6,13 @@ Given that the ring terminiology clashes with certain mathematical branches, we're using the term CList or CircularList instead. -Version: 0.1.2.3 -License: BSD3 +Version: 0.2 +License: BSD-3-Clause License-File: LICENSE Author: John Van Enk <vanenkj(a)gmail.com> Maintainer: Jeremy Huffman <jeremy(a)jeremyhuffman.com>, John Van Enk <vanenkj(a)gmail.com> Stability: experimental Category: Data Structures -Cabal-Version: >= 1.6 Build-Type: Simple Homepage: https://github.com/sw17ch/data-clist @@ -21,12 +21,22 @@ location: git://github.com/sw17ch/data-clist.git Library + Default-Language: Haskell2010 Build-Depends: base >= 4 && < 5, - deepseq >= 1.1 && < 1.5, - QuickCheck >= 2.4 && < 2.14 - + deepseq >= 1.1 && < 1.5 Exposed-Modules: Data.CircularList + Data.CircularList.Internal ghc-options: -Wall hs-source-dirs: src + +Test-Suite tests + Default-Language: Haskell2010 + Type: exitcode-stdio-1.0 + Build-Depends: base >=4.11 && < 5 + , data-clist + , QuickCheck >= 2.4 && < 2.15 + hs-source-dirs: tests/ + main-is: quickcheck.hs + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/data-clist-0.1.2.3/src/Data/CircularList/Internal.hs new/data-clist-0.2/src/Data/CircularList/Internal.hs --- old/data-clist-0.1.2.3/src/Data/CircularList/Internal.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/data-clist-0.2/src/Data/CircularList/Internal.hs 2001-09-09 03:46:40.000000000 +0200 @@ -0,0 +1,282 @@ +module Data.CircularList.Internal where + +import Control.Applicative hiding (empty) +import Prelude +import Data.List(find,unfoldr,foldl') +import Control.DeepSeq(NFData(..)) +import Control.Monad(join) +import qualified Data.Traversable as T +import qualified Data.Foldable as F + +-- | A functional ring type. +data CList a = Empty + | CList [a] a [a] + +{- Creating CLists -} + +-- | An empty CList. +empty :: CList a +empty = Empty + +-- |Make a (balanced) CList from a list. +fromList :: [a] -> CList a +fromList [] = Empty +fromList a@(i:is) = let len = length a + (r,l) = splitAt (len `div` 2) is + in CList (reverse l) i r + +singleton :: a -> CList a +singleton a = CList [] a [] + +{- Updating of CLists -} + +-- |Replaces the current focus with a new focus. +update :: a -> CList a -> CList a +update v Empty = CList [] v [] +update v (CList l _ r) = CList l v r + +-- |Reverse the direction of rotation. +reverseDirection :: CList a -> CList a +reverseDirection Empty = Empty +reverseDirection (CList l f r) = CList r f l + +{- Creating Lists -} + +-- |Starting with the focus, go left and accumulate all +-- elements of the CList in a list. +leftElements :: CList a -> [a] +leftElements Empty = [] +leftElements (CList l f r) = f : (l ++ (reverse r)) + +-- |Starting with the focus, go right and accumulate all +-- elements of the CList in a list. +rightElements :: CList a -> [a] +rightElements Empty = [] +rightElements (CList l f r) = f : (r ++ (reverse l)) + +-- |Make a list from a CList. +toList :: CList a -> [a] +toList = rightElements + +-- |Make a CList into an infinite list. +toInfList :: CList a -> [a] +toInfList = cycle . toList + +{- Extraction and Accumulation -} + +-- |Return the focus of the CList. +focus :: CList a -> Maybe a +focus Empty = Nothing +focus (CList _ f _) = Just f + +-- |Insert an element into the CList as the new focus. The +-- old focus is now the next element to the right. +insertR :: a -> CList a -> CList a +insertR i Empty = CList [] i [] +insertR i (CList l f r) = CList l i (f:r) + +-- |Insert an element into the CList as the new focus. The +-- old focus is now the next element to the left. +insertL :: a -> CList a -> CList a +insertL i Empty = CList [] i [] +insertL i (CList l f r) = CList (f:l) i r + +-- |Remove the focus from the CList. The new focus is the +-- next element to the left. +removeL :: CList a -> CList a +removeL Empty = Empty +removeL (CList [] _ []) = Empty +removeL (CList (l:ls) _ rs) = CList ls l rs +removeL (CList [] _ rs) = let (f:ls) = reverse rs + in CList ls f [] + +-- |Remove the focus from the CList. +removeR :: CList a -> CList a +removeR Empty = Empty +removeR (CList [] _ []) = Empty +removeR (CList l _ (r:rs)) = CList l r rs +removeR (CList l _ []) = let (f:rs) = reverse l + in CList [] f rs + +{- Manipulating Rotation -} + +-- |Return all possible rotations of the provided 'CList', where the +-- focus is the provided 'CList'. +allRotations :: CList a -> CList (CList a) +allRotations Empty = singleton Empty +allRotations cl = CList ls cl rs + where + ls = unfoldr (fmap (join (,)) . mRotL) cl + rs = unfoldr (fmap (join (,)) . mRotR) cl + +-- |Rotate the focus to the previous (left) element. +rotL :: CList a -> CList a +rotL Empty = Empty +rotL r@(CList [] _ []) = r +rotL (CList (l:ls) f rs) = CList ls l (f:rs) +rotL (CList [] f rs) = let (l:ls) = reverse rs + in CList ls l [f] + +-- |A non-cyclic version of 'rotL'; that is, only rotate the focus if +-- there is a previous (left) element to rotate to. +mRotL :: CList a -> Maybe (CList a) +mRotL (CList (l:ls) f rs) = Just $ CList ls l (f:rs) +mRotL _ = Nothing + +-- |Rotate the focus to the next (right) element. +rotR :: CList a -> CList a +rotR Empty = Empty +rotR r@(CList [] _ []) = r +rotR (CList ls f (r:rs)) = CList (f:ls) r rs +rotR (CList ls f []) = let (r:rs) = reverse ls + in CList [f] r rs + +-- |A non-cyclic version of 'rotL'; that is, only rotate the focus if +-- there is a previous (left) element to rotate to. +mRotR :: CList a -> Maybe (CList a) +mRotR (CList ls f (r:rs)) = Just $ CList (f:ls) r rs +mRotR _ = Nothing + +-- |Rotate the focus the specified number of times; if the index is +-- positive then it is rotated to the right; otherwise it is rotated +-- to the left. +rotN :: Int -> CList a -> CList a +rotN _ Empty = Empty +rotN _ cl@(CList [] _ []) = cl +rotN n cl = iterate rot cl !! n' + where + n' = abs n + rot | n < 0 = rotL + | otherwise = rotR + +-- |A wrapper around 'rotN' that doesn't rotate the CList if @n <= 0@. +rotNR :: Int -> CList a -> CList a +rotNR n cl + | n <= 0 = cl + | otherwise = rotN n cl + +-- |Rotate the focus the specified number of times to the left (but +-- don't rotate if @n <= 0@). +rotNL :: Int -> CList a -> CList a +rotNL n cl + | n <= 0 = cl + | otherwise = rotN (negate n) cl + +-- |Rotate the 'CList' such that the specified element (if it exists) +-- is focused. +rotateTo :: (Eq a) => a -> CList a -> Maybe (CList a) +rotateTo a = findRotateTo (a==) + +-- |Attempt to rotate the 'CList' such that focused element matches +-- the supplied predicate. +findRotateTo :: (a -> Bool) -> CList a -> Maybe (CList a) +findRotateTo p = find (maybe False p . focus) . toList . allRotations + +{- List-like functions -} + +-- |Remove those elements that do not satisfy the supplied predicate, +-- rotating to the right if the focus does not satisfy the predicate. +filterR :: (a -> Bool) -> CList a -> CList a +filterR = filterCL removeR + +-- |As with 'filterR', but rotates to the /left/ if the focus does not +-- satisfy the predicate. +filterL :: (a -> Bool) -> CList a -> CList a +filterL = filterCL removeL + +-- |Abstract away what to do with the focused element if it doesn't +-- match the predicate when filtering. +filterCL :: (CList a -> CList a) -> (a -> Bool) -> CList a -> CList a +filterCL _ _ Empty = Empty +filterCL rm p (CList l f r) + | p f = cl' + | otherwise = rm cl' + where + cl' = CList (filter p l) f (filter p r) + +-- |A right-fold, rotating to the right through the CList. +foldrR :: (a -> b -> b) -> b -> CList a -> b +foldrR = foldrCL rightElements + +-- |A right-fold, rotating to the left through the CList. +foldrL :: (a -> b -> b) -> b -> CList a -> b +foldrL = foldrCL leftElements + +-- |Abstract away direction for a foldr. +foldrCL :: (CList a -> [a]) -> (a -> b -> b) -> b -> CList a -> b +foldrCL toL f a = foldr f a . toL + +-- |A (strict) left-fold, rotating to the right through the CList. +foldlR :: (a -> b -> a) -> a -> CList b -> a +foldlR = foldlCL rightElements + +-- |A (strict) left-fold, rotating to the left through the CList. +foldlL :: (a -> b -> a) -> a -> CList b -> a +foldlL = foldlCL leftElements + +-- |Abstract away direction for a foldl'. +foldlCL :: (CList b -> [b]) -> (a -> b -> a) -> a -> CList b -> a +foldlCL toL f a = foldl' f a . toL + +{- Manipulating Packing -} + +-- |Balance the CList. Equivalent to `fromList . toList` +balance :: CList a -> CList a +balance = fromList . toList + +-- |Move all elements to the left side of the CList. +packL :: CList a -> CList a +packL Empty = Empty +packL (CList l f r) = CList (l ++ (reverse r)) f [] + +-- |Move all elements to the right side of the CList. +packR :: CList a -> CList a +packR Empty = Empty +packR (CList l f r) = CList [] f (r ++ (reverse l)) + +{- Information -} + +-- |Returns true if the CList is empty. +isEmpty :: CList a -> Bool +isEmpty Empty = True +isEmpty _ = False + +-- |Return the size of the CList. +size :: CList a -> Int +size Empty = 0 +size (CList l _ r) = 1 + (length l) + (length r) + +{- Instances -} + +instance (Show a) => Show (CList a) where + showsPrec d cl = showParen (d > 10) $ + showString "fromList " . shows (toList cl) + +instance (Read a) => Read (CList a) where + readsPrec p = readParen (p > 10) $ \ r -> do + ("fromList",s) <- lex r + (xs,t) <- reads s + return (fromList xs,t) + +instance (Eq a) => Eq (CList a) where + a == b = any ((toList a ==) . toList) . toList $ allRotations b + +instance (NFData a) => NFData (CList a) where + rnf Empty = () + rnf (CList l f r) = rnf f + `seq` rnf l + `seq` rnf r + +instance Functor CList where + fmap _ Empty = Empty + fmap fn (CList l f r) = (CList (fmap fn l) (fn f) (fmap fn r)) + +instance F.Foldable CList where + foldMap = T.foldMapDefault + +instance T.Traversable CList where + -- | traverses the list from left to right, starting at the focus + traverse _ Empty = pure Empty + traverse g (CList l f r) = (\f' r' l' -> CList l' f' r') <$> g f + <*> T.traverse g r + <*> T.traverse g l diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/data-clist-0.1.2.3/src/Data/CircularList.hs new/data-clist-0.2/src/Data/CircularList.hs --- old/data-clist-0.1.2.3/src/Data/CircularList.hs 2018-03-20 12:47:37.000000000 +0100 +++ new/data-clist-0.2/src/Data/CircularList.hs 2001-09-09 03:46:40.000000000 +0200 @@ -69,299 +69,4 @@ isEmpty, size, ) where -import Control.Applicative hiding (empty) -import Prelude -import Data.List(find,unfoldr,foldl') -import Control.DeepSeq(NFData(..)) -import Control.Monad(join) -import qualified Data.Traversable as T -import qualified Data.Foldable as F - -import Test.QuickCheck.Arbitrary -import Test.QuickCheck.Gen - - --- | A functional ring type. -data CList a = Empty - | CList [a] a [a] - -{- Creating CLists -} - --- | An empty CList. -empty :: CList a -empty = Empty - --- |Make a (balanced) CList from a list. -fromList :: [a] -> CList a -fromList [] = Empty -fromList a@(i:is) = let len = length a - (r,l) = splitAt (len `div` 2) is - in CList (reverse l) i r - -singleton :: a -> CList a -singleton a = CList [] a [] - -{- Updating of CLists -} - --- |Replaces the current focus with a new focus. -update :: a -> CList a -> CList a -update v Empty = CList [] v [] -update v (CList l _ r) = CList l v r - --- |Reverse the direction of rotation. -reverseDirection :: CList a -> CList a -reverseDirection Empty = Empty -reverseDirection (CList l f r) = CList r f l - -{- Creating Lists -} - --- |Starting with the focus, go left and accumulate all --- elements of the CList in a list. -leftElements :: CList a -> [a] -leftElements Empty = [] -leftElements (CList l f r) = f : (l ++ (reverse r)) - --- |Starting with the focus, go right and accumulate all --- elements of the CList in a list. -rightElements :: CList a -> [a] -rightElements Empty = [] -rightElements (CList l f r) = f : (r ++ (reverse l)) - --- |Make a list from a CList. -toList :: CList a -> [a] -toList = rightElements - --- |Make a CList into an infinite list. -toInfList :: CList a -> [a] -toInfList = cycle . toList - -{- Extraction and Accumulation -} - --- |Return the focus of the CList. -focus :: CList a -> Maybe a -focus Empty = Nothing -focus (CList _ f _) = Just f - --- |Insert an element into the CList as the new focus. The --- old focus is now the next element to the right. -insertR :: a -> CList a -> CList a -insertR i Empty = CList [] i [] -insertR i (CList l f r) = CList l i (f:r) - --- |Insert an element into the CList as the new focus. The --- old focus is now the next element to the left. -insertL :: a -> CList a -> CList a -insertL i Empty = CList [] i [] -insertL i (CList l f r) = CList (f:l) i r - --- |Remove the focus from the CList. The new focus is the --- next element to the left. -removeL :: CList a -> CList a -removeL Empty = Empty -removeL (CList [] _ []) = Empty -removeL (CList (l:ls) _ rs) = CList ls l rs -removeL (CList [] _ rs) = let (f:ls) = reverse rs - in CList ls f [] - --- |Remove the focus from the CList. -removeR :: CList a -> CList a -removeR Empty = Empty -removeR (CList [] _ []) = Empty -removeR (CList l _ (r:rs)) = CList l r rs -removeR (CList l _ []) = let (f:rs) = reverse l - in CList [] f rs - -{- Manipulating Rotation -} - --- |Return all possible rotations of the provided 'CList', where the --- focus is the provided 'CList'. -allRotations :: CList a -> CList (CList a) -allRotations Empty = singleton Empty -allRotations cl = CList ls cl rs - where - ls = unfoldr (fmap (join (,)) . mRotL) cl - rs = unfoldr (fmap (join (,)) . mRotR) cl - --- |Rotate the focus to the previous (left) element. -rotL :: CList a -> CList a -rotL Empty = Empty -rotL r@(CList [] _ []) = r -rotL (CList (l:ls) f rs) = CList ls l (f:rs) -rotL (CList [] f rs) = let (l:ls) = reverse rs - in CList ls l [f] - --- |A non-cyclic version of 'rotL'; that is, only rotate the focus if --- there is a previous (left) element to rotate to. -mRotL :: CList a -> Maybe (CList a) -mRotL (CList (l:ls) f rs) = Just $ CList ls l (f:rs) -mRotL _ = Nothing - --- |Rotate the focus to the next (right) element. -rotR :: CList a -> CList a -rotR Empty = Empty -rotR r@(CList [] _ []) = r -rotR (CList ls f (r:rs)) = CList (f:ls) r rs -rotR (CList ls f []) = let (r:rs) = reverse ls - in CList [f] r rs - --- |A non-cyclic version of 'rotL'; that is, only rotate the focus if --- there is a previous (left) element to rotate to. -mRotR :: CList a -> Maybe (CList a) -mRotR (CList ls f (r:rs)) = Just $ CList (f:ls) r rs -mRotR _ = Nothing - --- |Rotate the focus the specified number of times; if the index is --- positive then it is rotated to the right; otherwise it is rotated --- to the left. -rotN :: Int -> CList a -> CList a -rotN _ Empty = Empty -rotN _ cl@(CList [] _ []) = cl -rotN n cl = iterate rot cl !! n' - where - n' = abs n - rot | n < 0 = rotL - | otherwise = rotR - --- |A wrapper around 'rotN' that doesn't rotate the CList if @n <= 0@. -rotNR :: Int -> CList a -> CList a -rotNR n cl - | n <= 0 = cl - | otherwise = rotN n cl - --- |Rotate the focus the specified number of times to the left (but --- don't rotate if @n <= 0@). -rotNL :: Int -> CList a -> CList a -rotNL n cl - | n <= 0 = cl - | otherwise = rotN (negate n) cl - --- |Rotate the 'CList' such that the specified element (if it exists) --- is focused. -rotateTo :: (Eq a) => a -> CList a -> Maybe (CList a) -rotateTo a = findRotateTo (a==) - --- |Attempt to rotate the 'CList' such that focused element matches --- the supplied predicate. -findRotateTo :: (a -> Bool) -> CList a -> Maybe (CList a) -findRotateTo p = find (maybe False p . focus) . toList . allRotations - -{- List-like functions -} - --- |Remove those elements that do not satisfy the supplied predicate, --- rotating to the right if the focus does not satisfy the predicate. -filterR :: (a -> Bool) -> CList a -> CList a -filterR = filterCL removeR - --- |As with 'filterR', but rotates to the /left/ if the focus does not --- satisfy the predicate. -filterL :: (a -> Bool) -> CList a -> CList a -filterL = filterCL removeL - --- |Abstract away what to do with the focused element if it doesn't --- match the predicate when filtering. -filterCL :: (CList a -> CList a) -> (a -> Bool) -> CList a -> CList a -filterCL _ _ Empty = Empty -filterCL rm p (CList l f r) - | p f = cl' - | otherwise = rm cl' - where - cl' = CList (filter p l) f (filter p r) - --- |A right-fold, rotating to the right through the CList. -foldrR :: (a -> b -> b) -> b -> CList a -> b -foldrR = foldrCL rightElements - --- |A right-fold, rotating to the left through the CList. -foldrL :: (a -> b -> b) -> b -> CList a -> b -foldrL = foldrCL leftElements - --- |Abstract away direction for a foldr. -foldrCL :: (CList a -> [a]) -> (a -> b -> b) -> b -> CList a -> b -foldrCL toL f a = foldr f a . toL - --- |A (strict) left-fold, rotating to the right through the CList. -foldlR :: (a -> b -> a) -> a -> CList b -> a -foldlR = foldlCL rightElements - --- |A (strict) left-fold, rotating to the left through the CList. -foldlL :: (a -> b -> a) -> a -> CList b -> a -foldlL = foldlCL leftElements - --- |Abstract away direction for a foldl'. -foldlCL :: (CList b -> [b]) -> (a -> b -> a) -> a -> CList b -> a -foldlCL toL f a = foldl' f a . toL - -{- Manipulating Packing -} - --- |Balance the CList. Equivalent to `fromList . toList` -balance :: CList a -> CList a -balance = fromList . toList - --- |Move all elements to the left side of the CList. -packL :: CList a -> CList a -packL Empty = Empty -packL (CList l f r) = CList (l ++ (reverse r)) f [] - --- |Move all elements to the right side of the CList. -packR :: CList a -> CList a -packR Empty = Empty -packR (CList l f r) = CList [] f (r ++ (reverse l)) - -{- Information -} - --- |Returns true if the CList is empty. -isEmpty :: CList a -> Bool -isEmpty Empty = True -isEmpty _ = False - --- |Return the size of the CList. -size :: CList a -> Int -size Empty = 0 -size (CList l _ r) = 1 + (length l) + (length r) - -{- Instances -} - -instance (Show a) => Show (CList a) where - showsPrec d cl = showParen (d > 10) $ - showString "fromList " . shows (toList cl) - -instance (Read a) => Read (CList a) where - readsPrec p = readParen (p > 10) $ \ r -> do - ("fromList",s) <- lex r - (xs,t) <- reads s - return (fromList xs,t) - -instance (Eq a) => Eq (CList a) where - a == b = any ((toList a ==) . toList) . toList $ allRotations b - -instance (NFData a) => NFData (CList a) where - rnf Empty = () - rnf (CList l f r) = rnf f - `seq` rnf l - `seq` rnf r - -instance Arbitrary a => Arbitrary (CList a) where - arbitrary = frequency [(1, return Empty), (10, arbCList)] - where arbCList = do - l <- arbitrary - f <- arbitrary - r <- arbitrary - return $ CList l f r - shrink (CList l f r) = Empty : [ CList l' f' r' | l' <- shrink l, - f' <- shrink f, - r' <- shrink r] - shrink Empty = [] - -instance Functor CList where - fmap _ Empty = Empty - fmap fn (CList l f r) = (CList (fmap fn l) (fn f) (fmap fn r)) - -instance F.Foldable CList where - foldMap = T.foldMapDefault - -instance T.Traversable CList where - -- | traverses the list from left to right, starting at the focus - traverse _ Empty = pure Empty - traverse g (CList l f r) = (\f' r' l' -> CList l' f' r') <$> g f - <*> T.traverse g r - <*> T.traverse g l +import Data.CircularList.Internal diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/data-clist-0.1.2.3/tests/quickcheck.hs new/data-clist-0.2/tests/quickcheck.hs --- old/data-clist-0.1.2.3/tests/quickcheck.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/data-clist-0.2/tests/quickcheck.hs 2001-09-09 03:46:40.000000000 +0200 @@ -0,0 +1,69 @@ +{-# OPTIONS -Wall -Wno-orphans #-} +module Main where + +import Test.QuickCheck +import Data.CircularList.Internal + +instance Arbitrary a => Arbitrary (CList a) where + arbitrary = frequency [(1, return Empty), (10, arbCList)] + where arbCList = do + l <- arbitrary + f <- arbitrary + r <- arbitrary + return $ CList l f r + shrink (CList l f r) = Empty : [ CList l' f' r' | l' <- shrink l, + f' <- shrink f, + r' <- shrink r] + shrink Empty = [] + +-- Make sure empty really is empty. +prop_empty :: Bool +prop_empty = length (toList empty) == 0 + +-- Make sure converting to/from lists works. +prop_list :: CList Int -> Bool +prop_list c = c == (fromList . toList $ c) + +prop_focus :: CList Int -> Int -> Bool +prop_focus c v = (Just v) == (focus $ insertR v c) + +prop_rot :: CList Int -> Bool +prop_rot c = c == (rotR $ rotL c) + +prop_packL :: CList Int -> Bool +prop_packL c = c == (packL c) + +prop_packR :: CList Int -> Bool +prop_packR c = c == (packR c) + +prop_isEmpty :: [Int] -> Bool +prop_isEmpty l = null l == isEmpty (fromList l) + +prop_size :: [Int] -> Bool +prop_size l = (length l) == (size . fromList $ l) + +main :: IO () +main = do + putStrLn "prop_empty" + quickCheck prop_empty + + putStrLn "prop_list" + quickCheck prop_list + + putStrLn "prop_rot" + quickCheck prop_rot + + putStrLn "prop_focus" + quickCheck prop_focus + + putStrLn "prop_packL" + quickCheck prop_packL + + putStrLn "prop_packR" + quickCheck prop_packR + + putStrLn "prop_isEmpty" + quickCheck prop_isEmpty + + putStrLn "prop_size" + quickCheck prop_size

1 0