cereal 0.5.2.0 → 0.5.3.0
raw patch · 4 files changed
+15/−5 lines, 4 filesdep ~basedep ~bytestringPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base, bytestring
API changes (from Hackage documentation)
+ Data.Serialize.Put: instance GHC.Base.Monoid (Data.Serialize.Put.PutM ())
Files
- cereal.cabal +2/−2
- src/Data/Serialize/Get.hs +4/−2
- src/Data/Serialize/Put.hs +8/−0
- tests/RoundTrip.hs +1/−1
cereal.cabal view
@@ -1,5 +1,5 @@ name: cereal-version: 0.5.2.0+version: 0.5.3.0 license: BSD3 license-file: LICENSE author: Lennart Kolmodin <kolmodin@dtek.chalmers.se>,@@ -52,7 +52,7 @@ type: exitcode-stdio-1.0 build-depends: base == 4.*,- bytestring,+ bytestring >= 0.10.8.1, QuickCheck, test-framework, test-framework-quickcheck2,
src/Data/Serialize/Get.hs view
@@ -434,7 +434,8 @@ s <- ensure n put (B.drop n s) --- | Skip ahead @n@ bytes. No error if there isn't enough bytes.+-- | Skip ahead up to @n@ bytes in the current chunk. No error if there aren't+-- enough bytes, or if less than @n@ bytes are skipped. uncheckedSkip :: Int -> Get () uncheckedSkip n = do s <- get@@ -470,7 +471,8 @@ _ -> return () return ea --- | Get the next up to @n@ bytes as a ByteString, without consuming them.+-- | Get the next up to @n@ bytes as a ByteString until end of this chunk,+-- without consuming them. uncheckedLookAhead :: Int -> Get B.ByteString uncheckedLookAhead n = do s <- get
src/Data/Serialize/Put.hs view
@@ -1,4 +1,5 @@ {-# LANGUAGE CPP #-}+{-# LANGUAGE FlexibleInstances #-} #ifndef MIN_VERSION_base #define MIN_VERSION_base(x,y,z) 0@@ -166,6 +167,13 @@ (>>) = (*>) {-# INLINE (>>) #-}++instance Monoid (PutM ()) where+ mempty = pure ()+ {-# INLINE mempty #-}++ mappend = (*>)+ {-# INLINE mappend #-} tell :: Putter Builder tell b = Put $! PairS () b
tests/RoundTrip.hs view
@@ -4,7 +4,7 @@ -- | -- Module : -- Copyright : (c) Galois, Inc, 2009--- License : AllRightsReserved+-- License : BSD3 -- -- Maintainer : Trevor Elliott <trevor@galois.com> -- Stability :