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