getTorrentStatusNextAnnounce :: MonadIO m =>  TorrentStatus -> m C.CLong
getTorrentStatusNextAnnounce ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| long { $(torrent_status * hoPtr)->next_announce.total_seconds() } |]
getTorrentStatusNextAnnounce :: MonadIO m =>  TorrentStatus -> m C.CLong
getTorrentStatusNextAnnounce ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| long { $(torrent_status * hoPtr)->next_announce.total_seconds() } |]
getTorrentStatusNextAnnounce ho =
  liftIO . withPtr ho $ \hoPtr ->
  [CU.exp| long { $(torrent_status * hoPtr)->next_announce.total_seconds() } |]