Hello community, here is the log from the commit of package ghc-cereal for openSUSE:Factory checked in at 2018-08-20 16:20:03 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-cereal (Old) and /work/SRC/openSUSE:Factory/.ghc-cereal.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-cereal" Mon Aug 20 16:20:03 2018 rev:10 rq:630362 version:0.5.7.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-cereal/ghc-cereal.changes 2018-07-24 17:15:50.882795523 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-cereal.new/ghc-cereal.changes 2018-08-20 16:20:12.164888716 +0200 @@ -1,0 +2,16 @@ +Fri Aug 17 09:43:31 UTC 2018 - [email protected] + +- Update cereal to version 0.5.7.0. + 0.5.7.0 + ======= + * Added `runPutMBuilder` + + 0.5.6.0 + ======= + * Added GSerializeGet and GSerializePut instances for V1 + + 0.5.5.0 + ======= + * Added Semigroup instances + +------------------------------------------------------------------- Old: ---- cereal-0.5.5.0.tar.gz New: ---- cereal-0.5.7.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-cereal.spec ++++++ --- /var/tmp/diff_new_pack.vCgHtu/_old 2018-08-20 16:20:12.664889422 +0200 +++ /var/tmp/diff_new_pack.vCgHtu/_new 2018-08-20 16:20:12.668889428 +0200 @@ -19,7 +19,7 @@ %global pkg_name cereal %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.5.5.0 +Version: 0.5.7.0 Release: 0 Summary: A binary serialization library License: BSD-3-Clause ++++++ cereal-0.5.5.0.tar.gz -> cereal-0.5.7.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.5.0/CHANGELOG.md new/cereal-0.5.7.0/CHANGELOG.md --- old/cereal-0.5.5.0/CHANGELOG.md 2018-01-22 23:50:15.000000000 +0100 +++ new/cereal-0.5.7.0/CHANGELOG.md 2018-08-07 18:23:50.000000000 +0200 @@ -1,3 +1,14 @@ +0.5.7.0 +======= +* Added `runPutMBuilder` + +0.5.6.0 +======= +* Added GSerializeGet and GSerializePut instances for V1 + +0.5.5.0 +======= +* Added Semigroup instances 0.5.4.0 ======= diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.5.0/cereal.cabal new/cereal-0.5.7.0/cereal.cabal --- old/cereal-0.5.5.0/cereal.cabal 2018-01-22 23:50:15.000000000 +0100 +++ new/cereal-0.5.7.0/cereal.cabal 2018-08-07 18:23:50.000000000 +0200 @@ -1,5 +1,5 @@ name: cereal -version: 0.5.5.0 +version: 0.5.7.0 license: BSD3 license-file: LICENSE author: Lennart Kolmodin <[email protected]>, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.5.0/src/Data/Serialize/Put.hs new/cereal-0.5.7.0/src/Data/Serialize/Put.hs --- old/cereal-0.5.5.0/src/Data/Serialize/Put.hs 2018-01-22 23:50:15.000000000 +0100 +++ new/cereal-0.5.7.0/src/Data/Serialize/Put.hs 2018-08-07 18:23:50.000000000 +0200 @@ -34,6 +34,7 @@ , runPutM , runPutLazy , runPutMLazy + , runPutMBuilder , putBuilder , execPut @@ -226,6 +227,11 @@ runPutMLazy (Put (PairS f s)) = (f, toLazyByteString s) {-# INLINE runPutMLazy #-} +-- | Run the 'Put' monad and get the result and underlying 'Builder' +runPutMBuilder :: PutM a -> (a, Builder) +runPutMBuilder (Put (PairS f s)) = (f, s) +{-# INLINE runPutMBuilder #-} + ------------------------------------------------------------------------ -- | Pop the ByteString we have constructed so far, if any, yielding a diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/cereal-0.5.5.0/src/Data/Serialize.hs new/cereal-0.5.7.0/src/Data/Serialize.hs --- old/cereal-0.5.5.0/src/Data/Serialize.hs 2018-01-22 23:50:15.000000000 +0100 +++ new/cereal-0.5.7.0/src/Data/Serialize.hs 2018-08-07 18:23:50.000000000 +0200 @@ -592,6 +592,16 @@ gGet = pure U1 {-# INLINE gGet #-} +-- | Always fails to serialize +instance GSerializePut V1 where + gPut v = v `seq` error "GSerializePut.V1" + {-# INLINE gPut #-} + +-- | Always fails to deserialize +instance GSerializeGet V1 where + gGet = fail "GSerializeGet.V1" + {-# INLINE gGet #-} + instance (GSerializePut a, GSerializePut b) => GSerializePut (a :*: b) where gPut (a :*: b) = gPut a *> gPut b {-# INLINE gPut #-}
