getIsFinished :: MonadIO m =>  TorrentStatus -> m Bool
getIsFinished ho =
  liftIO . withPtr ho $ \hoPtr ->
  toBool <$> [CU.exp| bool { $(torrent_status * hoPtr)->is_finished } |]
getIsFinished :: MonadIO m =>  TorrentStatus -> m Bool
getIsFinished ho =
  liftIO . withPtr ho $ \hoPtr ->
  toBool <$> [CU.exp| bool { $(torrent_status * hoPtr)->is_finished } |]
getIsFinished ho =
  liftIO . withPtr ho $ \hoPtr ->
  toBool <$> [CU.exp| bool { $(torrent_status * hoPtr)->is_finished } |]