Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-x509-store for openSUSE:Factory checked in at 2022-02-11 23:10:04 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-x509-store (Old) and /work/SRC/openSUSE:Factory/.ghc-x509-store.new.1956 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-x509-store" Fri Feb 11 23:10:04 2022 rev:17 rq:953567 version:1.6.9 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-x509-store/ghc-x509-store.changes 2020-12-22 11:49:19.390001102 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-x509-store.new.1956/ghc-x509-store.changes 2022-02-11 23:12:03.851406655 +0100 @@ -1,0 +2,6 @@ +Tue Jan 18 04:06:41 UTC 2022 - Peter Simons <[email protected]> + +- Update x509-store to version 1.6.9. + Upstream does not provide a change log file. + +------------------------------------------------------------------- Old: ---- x509-store-1.6.7.tar.gz x509-store.cabal New: ---- x509-store-1.6.9.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-x509-store.spec ++++++ --- /var/tmp/diff_new_pack.NGjU2H/_old 2022-02-11 23:12:04.287407916 +0100 +++ /var/tmp/diff_new_pack.NGjU2H/_new 2022-02-11 23:12:04.291407928 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-x509-store # -# 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 x509-store %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.6.7 +Version: 1.6.9 Release: 0 Summary: X.509 collection accessing and storing methods 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-asn1-encoding-devel BuildRequires: ghc-asn1-types-devel @@ -60,7 +59,6 @@ %prep %autosetup -n %{pkg_name}-%{version} -cp -p %{SOURCE1} %{pkg_name}.cabal %build %ghc_lib_build ++++++ x509-store-1.6.7.tar.gz -> x509-store-1.6.9.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/x509-store-1.6.7/Data/X509/CertificateStore.hs new/x509-store-1.6.9/Data/X509/CertificateStore.hs --- old/x509-store-1.6.7/Data/X509/CertificateStore.hs 2018-07-21 10:17:34.000000000 +0200 +++ new/x509-store-1.6.9/Data/X509/CertificateStore.hs 2022-01-18 05:05:54.000000000 +0100 @@ -3,6 +3,7 @@ ( CertificateStore , makeCertificateStore , readCertificateStore + , readCertificates -- * Queries , findCertificate , listCertificates diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/x509-store-1.6.7/Data/X509/File.hs new/x509-store-1.6.9/Data/X509/File.hs --- old/x509-store-1.6.7/Data/X509/File.hs 2018-07-21 10:17:34.000000000 +0200 +++ new/x509-store-1.6.9/Data/X509/File.hs 2022-01-10 04:45:31.000000000 +0100 @@ -1,9 +1,11 @@ module Data.X509.File ( readSignedObject , readKeyFile + , PEMError (..) ) where import Control.Applicative +import Control.Exception (Exception (..), throw) import Data.ASN1.Types import Data.ASN1.BinaryEncoding import Data.ASN1.Encoding @@ -13,10 +15,16 @@ import Data.PEM (pemParseLBS, pemContent, pemName, PEM) import qualified Data.ByteString.Lazy as L +newtype PEMError = PEMError {displayPEMError :: String} + deriving Show + +instance Exception PEMError where + displayException = displayPEMError + readPEMs :: FilePath -> IO [PEM] readPEMs filepath = do content <- L.readFile filepath - return $ either error id $ pemParseLBS content + either (throw . PEMError) pure $ pemParseLBS content -- | return all the signed objects in a file. -- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/x509-store-1.6.7/Data/X509/Memory.hs new/x509-store-1.6.9/Data/X509/Memory.hs --- old/x509-store-1.6.7/Data/X509/Memory.hs 2018-11-04 11:10:41.000000000 +0100 +++ new/x509-store-1.6.9/Data/X509/Memory.hs 2022-01-10 04:45:31.000000000 +0100 @@ -22,6 +22,7 @@ import Data.X509.EC as X509 import Data.PEM (pemParseBS, pemContent, pemName, PEM) import qualified Data.ByteString as B +import Crypto.Number.Basic (numBytes) import Crypto.Number.Serialize (os2ip) import qualified Crypto.PubKey.DSA as DSA import qualified Crypto.PubKey.ECC.ECDSA as ECDSA @@ -192,8 +193,7 @@ : End Sequence : xs) = Right (privKey, xs) where - calculate_modulus m i = if (2 ^ (i * 8)) > m then i else calculate_modulus m (i+1) - pubKey = RSA.PublicKey { RSA.public_size = calculate_modulus n 1 + pubKey = RSA.PublicKey { RSA.public_size = numBytes n , RSA.public_n = n , RSA.public_e = e } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/x509-store-1.6.7/x509-store.cabal new/x509-store-1.6.9/x509-store.cabal --- old/x509-store-1.6.7/x509-store.cabal 2018-11-04 12:41:57.000000000 +0100 +++ new/x509-store-1.6.9/x509-store.cabal 2022-01-18 05:06:15.000000000 +0100 @@ -1,5 +1,5 @@ Name: x509-store -version: 1.6.7 +version: 1.6.9 Description: X.509 collection accessing and storing methods for certificate, crl, exception list License: BSD3 License-file: LICENSE
