getTotalWantedDone :: MonadIO m =>  TorrentStatus -> m Int64
getTotalWantedDone ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| int64_t { $(torrent_status * hoPtr)->total_wanted_done } |]
getTotalWantedDone :: MonadIO m =>  TorrentStatus -> m Int64
getTotalWantedDone ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| int64_t { $(torrent_status * hoPtr)->total_wanted_done } |]
getTotalWantedDone ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| int64_t { $(torrent_status * hoPtr)->total_wanted_done } |]