-- just a utility to take the first n blocks of the blocks returned by the
-- blocks function in the Utils.Bytes package.
blocks :: Int -> Int -> B.ByteString -> [B.ByteString]
blocks n sz bs =
  Bytes.blocks sz bs
  |> take n
blocks :: Int -> Int -> B.ByteString -> [B.ByteString]
blocks n sz bs =
  Bytes.blocks sz bs
  |> take n
blocks n sz bs =
  Bytes.blocks sz bs
  |> take n