getDistributedFullCopies :: MonadIO m =>  TorrentStatus -> m CInt
getDistributedFullCopies ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| int { $(torrent_status * hoPtr)->distributed_full_copies } |]
getDistributedFullCopies :: MonadIO m =>  TorrentStatus -> m CInt
getDistributedFullCopies ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| int { $(torrent_status * hoPtr)->distributed_full_copies } |]
getDistributedFullCopies ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| int { $(torrent_status * hoPtr)->distributed_full_copies } |]