avro 0.3.4.0 → 0.3.4.1

raw patch · 2 files changed

+7/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• avro.cabal +2/−2
• src/Data/Avro/Decode/Lazy.hs +5/−5

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 8b98a8b89f40922a3fbe1ab0ebd5a8bef25531bd5d1571b3216bb3b3ed75bed3+-- hash: 0af56f5e0a9d8bce12730d5834259529fad0458a9efdf3d8127c1f3ac4e921cb  name:           avro-version:        0.3.4.0+version:        0.3.4.1 synopsis:       Avro serialization support for Haskell description:    Avro serialization and deserialization support for Haskell category:       Data

@@ -158,10 +158,10 @@         (marker, _) | marker /= sync -> Left "Invalid marker, does not match sync bytes."         (_, rest) -> Right rest -    getBlocks :: (BL.ByteString -> (BL.ByteString, T.LazyValue Type))-              -> BL.ByteString-              -> BL.ByteString-              -> (BL.ByteString -> Get BL.ByteString)+    getBlocks :: (BL.ByteString -> (BL.ByteString, T.LazyValue Type)) -- ^ getValue+              -> BL.ByteString                                        -- ^ sync bytes+              -> BL.ByteString                                        -- ^ byteString to parse+              -> (BL.ByteString -> Get BL.ByteString)                 -- ^ how to decompress               -> (BL.ByteString, [[T.LazyValue Type]])     getBlocks getValue sync bs decompress =       case runGetOrFail (getRawBlock decompress) bs of@@ -172,7 +172,7 @@             Left err -> (bs', [[T.Error err]])             Right bs'' | BL.null bs'' -> (bs'', [vs])             Right bs'' ->-              let (rest, vs') = getBlocks getValue bs'' sync decompress+              let (rest, vs') = getBlocks getValue sync bs'' decompress               in (rest, vs : vs')  decodeGet :: GetAvro a => (a -> T.LazyValue Type) -> BL.ByteString -> (BL.ByteString, T.LazyValue Type)