vvalue
requestPublicRootPeersImpl :: (MonadThrow m, MonadAsync m, Ord peeraddr)=> Tracer m TracePublicRootPeers-> STM m UseBootstrapPeers-> STM m LedgerStateJudgement-> STM m (Map RelayAccessPoint PeerAdvertise)-> PeerActionsDNS peeraddr resolver m-> DNSSemaphore m-> Map peeraddr PeerAdvertise -> ExtraPeers peeraddr-> NumberOfPeers -> SomeLedgerPeersKind -> m (Maybe (Set peeraddr, DiffTime))-> SomeLedgerPeersKind-> StdGen-> Int-> m (CardanoPublicRootPeers peeraddr, DiffTime)