getOneBlock :: Get (Maybe Block)
getOneBlock = do
  blockSize <- getWord16le
  block <- getByteString $ fromIntegral blockSize
  let decompressed = decompressByteStringFixed 100000 block

  return $ Block <$> BSL.fromStrict <$> decompressed
getOneBlock :: Get (Maybe Block)
getOneBlock = do
  blockSize <- getWord16le
  block <- getByteString $ fromIntegral blockSize
  let decompressed = decompressByteStringFixed 100000 block

  return $ Block <$> BSL.fromStrict <$> decompressed
getOneBlock = do
  blockSize <- getWord16le
  block <- getByteString $ fromIntegral blockSize
  let decompressed = decompressByteStringFixed 100000 block

  return $ Block <$> BSL.fromStrict <$> decompressed