getDistributedCopies :: MonadIO m =>  TorrentStatus -> m C.CFloat
getDistributedCopies ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| float { $(torrent_status * hoPtr)->distributed_copies } |]
getDistributedCopies :: MonadIO m =>  TorrentStatus -> m C.CFloat
getDistributedCopies ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| float { $(torrent_status * hoPtr)->distributed_copies } |]
getDistributedCopies ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| float { $(torrent_status * hoPtr)->distributed_copies } |]