Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-cereal for openSUSE:Factory checked in at 2021-11-11 21:37:33 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-cereal (Old) and /work/SRC/openSUSE:Factory/.ghc-cereal.new.1890 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-cereal" Thu Nov 11 21:37:33 2021 rev:18 rq:930430 version:0.5.8.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-cereal/ghc-cereal.changes 2020-12-22 11:37:16.257367934 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-cereal.new.1890/ghc-cereal.changes 2021-11-11 21:38:18.072970885 +0100 @@ -1,0 +2,13 @@ +Thu Nov 4 21:53:05 UTC 2021 - [email protected] + +- Update cereal to version 0.5.8.2. + Upstream has not updated the file "CHANGELOG.md" since the last + release. + +------------------------------------------------------------------- +Thu Oct 14 08:02:19 UTC 2021 - [email protected] + +- Update cereal to version 0.5.8.1 revision 1. + Upstream has revised the Cabal build instructions on Hackage. + +------------------------------------------------------------------- Old: ---- cereal-0.5.8.1.tar.gz New: ---- cereal-0.5.8.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-cereal.spec ++++++ --- /var/tmp/diff_new_pack.D1pI6L/_old 2021-11-11 21:38:18.556971238 +0100 +++ /var/tmp/diff_new_pack.D1pI6L/_new 2021-11-11 21:38:18.560971241 +0100 @@ -1,7 +1,7 @@ # # spec file for package ghc-cereal # -# 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 @@ -19,7 +19,7 @@ %global pkg_name cereal %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.5.8.1 +Version: 0.5.8.2 Release: 0 Summary: A binary serialization library License: BSD-3-Clause ++++++ cereal-0.5.8.1.tar.gz -> cereal-0.5.8.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.8.1/cereal.cabal new/cereal-0.5.8.2/cereal.cabal --- old/cereal-0.5.8.1/cereal.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/cereal-0.5.8.2/cereal.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: cereal -version: 0.5.8.1 +version: 0.5.8.2 license: BSD3 license-file: LICENSE author: Lennart Kolmodin <[email protected]>, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.8.1/src/Data/Serialize/Get.hs new/cereal-0.5.8.2/src/Data/Serialize/Get.hs --- old/cereal-0.5.8.1/src/Data/Serialize/Get.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/cereal-0.5.8.2/src/Data/Serialize/Get.hs 2001-09-09 03:46:40.000000000 +0200 @@ -300,8 +300,8 @@ {-# INLINE runGetPartial #-} -- | Run the Get monad applies a 'get'-based parser on the input --- ByteString. Additional to the result of get it returns the number of --- consumed bytes and the rest of the input. +-- ByteString, starting at the specified offset. In addition to the result of get +-- it returns the rest of the input. runGetState :: Get a -> B.ByteString -> Int -> Either String (a, B.ByteString) runGetState m str off = case runGetState' m str off of @@ -310,8 +310,8 @@ {-# INLINE runGetState #-} -- | Run the Get monad applies a 'get'-based parser on the input --- ByteString. Additional to the result of get it returns the number of --- consumed bytes and the rest of the input, even in the event of a failure. +-- ByteString, starting at the specified offset. In addition to the result of get +-- it returns the rest of the input, even in the event of a failure. runGetState' :: Get a -> B.ByteString -> Int -> (Either String a, B.ByteString) runGetState' m str off = @@ -723,8 +723,13 @@ shiftl_w64 :: Word64 -> Int -> Word64 #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__) +#if MIN_VERSION_base(4,16,0) +shiftl_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftLWord16#` i) +shiftl_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftLWord32#` i) +#else shiftl_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftL#` i) shiftl_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftL#` i) +#endif #if WORD_SIZE_IN_BITS < 64 shiftl_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftL64#` i) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.8.1/src/Data/Serialize.hs new/cereal-0.5.8.2/src/Data/Serialize.hs --- old/cereal-0.5.8.1/src/Data/Serialize.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/cereal-0.5.8.2/src/Data/Serialize.hs 2001-09-09 03:46:40.000000000 +0200 @@ -289,9 +289,9 @@ let expMax = until (\e -> 2 ^ e > k) (* 2) 1 findNr :: Int -> Int -> Int findNr lo hi - | mid == lo = hi + | mid == lo = hi | 2 ^ mid <= k = findNr mid hi - | 2 ^ mid > k = findNr lo mid + | otherwise = findNr lo mid where mid = (lo + hi) `div` 2 in findNr (expMax `div` 2) expMax
