diff --git a/ouroboros-network/src/Ouroboros/Network/BlockFetch/Client.hs b/ouroboros-network/src/Ouroboros/Network/BlockFetch/Client.hs index 168c7a653ba..7c7803b4627 100644 --- a/ouroboros-network/src/Ouroboros/Network/BlockFetch/Client.hs +++ b/ouroboros-network/src/Ouroboros/Network/BlockFetch/Client.hs @@ -186,7 +186,7 @@ blockFetchClient _version controlMessageSTM reportFetched Right lower = AF.last fragment Right upper = AF.head fragment - traceWith tracer (SendFetchRequest fragment) + traceWith tracer (SendFetchRequest fragment gsvs) return $ SenderPipeline (ClientAgency TokIdle) diff --git a/ouroboros-network/src/Ouroboros/Network/BlockFetch/ClientState.hs b/ouroboros-network/src/Ouroboros/Network/BlockFetch/ClientState.hs index 39639fc3565..9e083ddc80a 100644 --- a/ouroboros-network/src/Ouroboros/Network/BlockFetch/ClientState.hs +++ b/ouroboros-network/src/Ouroboros/Network/BlockFetch/ClientState.hs @@ -383,6 +383,7 @@ data TraceFetchClientState header = -- over the wire. | SendFetchRequest (AnchoredFragment header) + PeerGSV -- | Mark the start of receiving a streaming batch of blocks. This will -- be followed by one or more 'CompletedBlockFetch' and a final