decodeNull :: L.ByteString -> ()
decodeNull =
  Binary.runGet $ do
    n <- Binary.get :: Get Int
    go n
  where
    go 0 = return ()
    go i = do
      x <- Binary.get :: Get PackageDescription
      x `seq` go (i-1)
decodeNull :: L.ByteString -> ()
decodeNull =
  Binary.runGet $ do
    n <- Binary.get :: Get Int
    go n
  where
    go 0 = return ()
    go i = do
      x <- Binary.get :: Get PackageDescription
      x `seq` go (i-1)
decodeNull =
  Binary.runGet $ do
    n <- Binary.get :: Get Int
    go n
  where
    go 0 = return ()
    go i = do
      x <- Binary.get :: Get PackageDescription
      x `seq` go (i-1)