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