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