cereal 0.5.7.0 → 0.5.8.0

raw patch · 4 files changed

+24/−14 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.Serialize: instance Data.Serialize.Serialize a => Data.Serialize.Serialize (GHC.Base.Maybe a)

+ Data.Serialize: instance Data.Serialize.Serialize Data.ByteString.Short.Internal.ShortByteString

+ Data.Serialize: instance Data.Serialize.Serialize a => Data.Serialize.Serialize (GHC.Maybe.Maybe a)

Files

CHANGELOG.md +4/−0
cereal.cabal +2/−2
src/Data/Serialize.hs +16/−10
tests/RoundTrip.hs +2/−2

CHANGELOG.md view

@@ -1,3 +1,7 @@+0.5.8.0+=======+* Added ShortByteString instances+ 0.5.7.0 ======= * Added `runPutMBuilder`

cereal.cabal view

@@ -1,12 +1,12 @@ name:                   cereal-version:                0.5.7.0+version:                0.5.8.0 license:                BSD3 license-file:           LICENSE author:                 Lennart Kolmodin <kolmodin@dtek.chalmers.se>,                         Galois Inc.,                         Lemmih <lemmih@gmail.com>,                         Bas van Dijk <v.dijk.bas@gmail.com>-maintainer:             Trevor Elliott <trevor@galois.com>+maintainer:             Eric Mertens <emertens@galois.com> category:               Data, Parsing stability:              provisional build-type:             Simple

src/Data/Serialize.hs view

@@ -57,16 +57,17 @@ import Foreign  -- And needed for the instances:-import qualified Data.ByteString      as B-import qualified Data.ByteString.Lazy as L-import qualified Data.Map             as Map-import qualified Data.Monoid          as M-import qualified Data.Set             as Set-import qualified Data.IntMap          as IntMap-import qualified Data.IntSet          as IntSet-import qualified Data.Ratio           as R-import qualified Data.Tree            as T-import qualified Data.Sequence        as Seq+import qualified Data.ByteString       as B+import qualified Data.ByteString.Lazy  as L+import qualified Data.ByteString.Short as S+import qualified Data.Map              as Map+import qualified Data.Monoid           as M+import qualified Data.Set              as Set+import qualified Data.IntMap           as IntMap+import qualified Data.IntSet           as IntSet+import qualified Data.Ratio            as R+import qualified Data.Tree             as T+import qualified Data.Sequence         as Seq  import GHC.Generics @@ -498,6 +499,11 @@     put bs = do put (L.length bs :: Int64)                 putLazyByteString bs     get    = get >>= getLazyByteString++instance Serialize S.ShortByteString where+    put sbs = do put (S.length sbs)+                 putShortByteString sbs+    get     = get >>= getShortByteString   ------------------------------------------------------------------------

tests/RoundTrip.hs view

@@ -30,8 +30,8 @@  -- | Did a call to 'quickCheckResult' succeed? isSuccess :: QC.Result -> Bool-isSuccess (Success _ _ _) = True-isSuccess _ = False+isSuccess Success{} = True+isSuccess _         = False  tests :: Test tests  = testGroup "Round Trip"