vvalue
publicRootPeersProvider :: (MonadThrow m, MonadAsync m, Ord peerAddr)=> Tracer m TracePublicRootPeers-> IP -> PortNumber -> peerAddr-> DNSSemaphore m-> ResolvConf-> STM m (Map RelayAccessPoint PeerAdvertise)-> DNSActions peerAddr resolver m-> StdGen-> (Int -> m (Map peerAddr PeerAdvertise, TTL)) -> m a-> m a