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