binary 0.7.2.2 → 0.7.2.3

raw patch · 2 files changed

+1/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• binary.cabal +1/−1
• src/Data/Binary/Generic.hs +0/−6

@@ -1,5 +1,5 @@ name:            binary-version:         0.7.2.2+version:         0.7.2.3 license:         BSD3 license-file:    LICENSE author:          Lennart Kolmodin <kolmodin@gmail.com>

@@ -72,13 +72,11 @@          | otherwise = sizeError "encode" size       where         size = unTagged (sumSize :: Tagged (a :+: b) Word64)-    {-# INLINE gput #-}      gget | GETSUM(Word8) | GETSUM(Word16) | GETSUM(Word32) | GETSUM(Word64)          | otherwise = sizeError "decode" size       where         size = unTagged (sumSize :: Tagged (a :+: b) Word64)-    {-# INLINE gget #-}  sizeError :: Show size => String -> size -> error sizeError s size =@@ -102,7 +100,6 @@         where           sizeL = size `shiftR` 1           sizeR = size - sizeL-    {-# INLINE getSum #-}      putSum !code !size s = case s of                              L1 x -> putSum code           sizeL x@@ -110,14 +107,11 @@         where           sizeL = size `shiftR` 1           sizeR = size - sizeL-    {-# INLINE putSum #-}  instance GBinary a => GSum (C1 c a) where     getSum _ _ = gget-    {-# INLINE getSum #-}      putSum !code _ x = put code *> gput x-    {-# INLINE putSum #-}  ------------------------------------------------------------------------