vvalue
blockFetchLogic :: (HasHeader header, HasHeader block, HeaderHash header ~ HeaderHash block, MonadDelay m, MonadTimer m, Ord addr, Hashable addr)=> Tracer m (TraceDecisionEvent addr header)-> Tracer m (TraceLabelPeer addr (TraceFetchClientState header))-> BlockFetchConsensusInterface addr header block m-> FetchClientRegistry addr header block m-> KeepAliveRegistry addr m-> BlockFetchConfiguration-> m Void