getSavePath :: MonadIO m =>  TorrentStatus -> m Text
getSavePath ho =
  liftIO . withPtr ho $ \hoPtr -> do
  res <- fromPtr [CU.exp| string * { new std::string($(torrent_status * hoPtr)->save_path) } |]
  stdStringToText res
getSavePath :: MonadIO m =>  TorrentStatus -> m Text
getSavePath ho =
  liftIO . withPtr ho $ \hoPtr -> do
  res <- fromPtr [CU.exp| string * { new std::string($(torrent_status * hoPtr)->save_path) } |]
  stdStringToText res
getSavePath ho =
  liftIO . withPtr ho $ \hoPtr -> do
  res <- fromPtr [CU.exp| string * { new std::string($(torrent_status * hoPtr)->save_path) } |]
  stdStringToText res