diff --git a/avro.cabal b/avro.cabal
--- a/avro.cabal
+++ b/avro.cabal
@@ -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
diff --git a/src/Data/Avro/Decode/Lazy.hs b/src/Data/Avro/Decode/Lazy.hs
--- a/src/Data/Avro/Decode/Lazy.hs
+++ b/src/Data/Avro/Decode/Lazy.hs
@@ -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)