Ouroboros.Network.BlockFetch.Decision.Genesis

valuefetchDecisionsGenesisM

:: (Ord peer, HasHeader header, HeaderHash header ~ HeaderHash block, MonadMonotonicTime m)
=> Tracer m (TraceDecisionEvent peer header)
-> FetchDecisionPolicy header
-> ChainComparison header
-> AnchoredFragment header
-> Point block -> Bool
-> MaxSlotNo
-> ChainSelStarvation
-> (PeersOrder peer, PeersOrder peer -> m (), peer -> m ())
-> [(AnchoredFragment header, PeerInfo header peer extra)]
-> m [(FetchDecision (FetchRequest header), PeerInfo header peer extra)]