Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-bimap for openSUSE:Factory checked in at 2022-08-01 21:29:34 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-bimap (Old) and /work/SRC/openSUSE:Factory/.ghc-bimap.new.1533 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-bimap" Mon Aug 1 21:29:34 2022 rev:3 rq:987021 version:0.5.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-bimap/ghc-bimap.changes 2020-12-22 11:35:46.289277261 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-bimap.new.1533/ghc-bimap.changes 2022-08-01 21:29:40.673532344 +0200 @@ -1,0 +2,6 @@ +Sun May 15 01:41:36 UTC 2022 - Peter Simons <psimons@suse.com> + +- Update bimap to version 0.5.0. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- bimap-0.4.0.tar.gz bimap.cabal New: ---- bimap-0.5.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-bimap.spec ++++++ --- /var/tmp/diff_new_pack.a6bnU8/_old 2022-08-01 21:29:41.205533871 +0200 +++ /var/tmp/diff_new_pack.a6bnU8/_new 2022-08-01 21:29:41.209533882 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-bimap # -# 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 @@ -19,13 +19,12 @@ %global pkg_name bimap %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.4.0 +Version: 0.5.0 Release: 0 Summary: Bidirectional mapping between two key types 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-containers-devel BuildRequires: ghc-deepseq-devel @@ -54,7 +53,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ bimap-0.4.0.tar.gz -> bimap-0.5.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/bimap-0.4.0/Data/Bimap.hs new/bimap-0.5.0/Data/Bimap.hs --- old/bimap-0.4.0/Data/Bimap.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/bimap-0.5.0/Data/Bimap.hs 2022-05-14 02:14:31.000000000 +0200 @@ -36,6 +36,8 @@ lookupR, (!), (!>), + (!?), + (!?>), -- * Construction empty, singleton, @@ -103,7 +105,7 @@ import Data.Typeable #if __GLASGOW_HASKELL__ >= 708 -import qualified GHC.Exts as GHCExts +import qualified Data.BimapExt as GHCExts #endif import GHC.Generics (Generic) @@ -346,6 +348,9 @@ This function will @return@ the result in the monad, or @fail@ if the value isn't in the bimap. +Note that the signature differs slightly from Data.Map's @lookup@. This one is more general - +it functions the same way as the "original" if @m@ is cast (or inferred) to Maybe. + /Version: 0.2/-} lookup :: (Ord a, Ord b, MonadThrow m) => a -> Bimap a b -> m b @@ -357,6 +362,8 @@ {-| /O(log n)/. A version of 'lookup' that is specialized to the right key, and returns the corresponding left key. + + /Version: 0.2/-} lookupR :: (Ord a, Ord b, MonadThrow m) => b -> Bimap a b -> m a @@ -379,6 +386,16 @@ (!>) :: (Ord a, Ord b) => Bimap a b -> b -> a (!>) bi y = fromMaybe (error "Data.Bimap.(!>): Right key not found") $ lookupR y bi +{-| /O(log n)/. +See 'lookup'. -} +(!?) :: (Ord a, Ord b, MonadThrow m) => Bimap a b -> a -> m b +(!?) = flip lookup + +{-| /O(log n)/. +See 'lookupR'. -} +(!?>) :: (Ord a, Ord b, MonadThrow m) => Bimap a b -> b -> m a +(!?>) = flip lookupR + {-| /O(n*log n)/. Build a map from a list of pairs. If there are any overlapping pairs in the list, the later ones will override the earlier ones. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/bimap-0.4.0/Data/BimapExt.hs new/bimap-0.5.0/Data/BimapExt.hs --- old/bimap-0.4.0/Data/BimapExt.hs 1970-01-01 01:00:00.000000000 +0100 +++ new/bimap-0.5.0/Data/BimapExt.hs 2022-05-14 02:14:31.000000000 +0200 @@ -0,0 +1,16 @@ +{-# LANGUAGE Trustworthy #-} +{-| +An auxiliary module that exports the 'IsList' class from "GHC.Exts". We use +this intermediate module to isolate a safe feature from an otherwise non-safe +module, and prevent all of "Data.Bimap" from being marked as not safe just +because we are importing "GHC.Exts". + +The module only exports a class, and the class does not define any methods in +an unsafe way. We therefore consider it safe and mark this module as +trustworthy. +-} +module Data.BimapExt ( + IsList(..) +) where + +import GHC.Exts (IsList(..)) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/bimap-0.4.0/bimap.cabal new/bimap-0.5.0/bimap.cabal --- old/bimap-0.4.0/bimap.cabal 1970-01-01 01:00:00.000000000 +0100 +++ new/bimap-0.5.0/bimap.cabal 2022-05-15 03:41:14.000000000 +0200 @@ -1,6 +1,6 @@ -cabal-version: >= 1.8 +cabal-version: >= 1.10 name: bimap -version: 0.4.0 +version: 0.5.0 synopsis: Bidirectional mapping between two key types description: A data structure representing a bidirectional mapping between two @@ -22,11 +22,21 @@ build-depends: base >= 4 && <5, containers, deepseq, exceptions if impl(ghc < 7.6.1) build-depends: ghc-prim - extensions: DeriveDataTypeable + default-extensions: CPP + DeriveGeneric + TypeFamilies + else + default-extensions: CPP + TypeFamilies + default-language: Haskell98 ghc-options: -Wall exposed-modules: Data.Bimap + if impl(ghc >= 7.8) + other-modules: + Data.BimapExt + test-suite tests type: exitcode-stdio-1.0 main-is: Test/RunTests.hs @@ -40,7 +50,8 @@ template-haskell >= 2 && < 3 if impl(ghc < 7.6.1) build-depends: ghc-prim - extensions: DeriveDataTypeable + default-extensions: TemplateHaskell + default-language: Haskell98 source-repository head type: git