From 071633f375629dd7304f81dabf1b9d76eac27316 Mon Sep 17 00:00:00 2001
From: Karl Knutsson <karl.knutsson@iohk.io>
Date: Mon, 15 Mar 2021 16:03:29 +0100
Subject: [PATCH] Add point to TraceBlockFetchServerSendBlock

---
 .../src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs b/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs
index d103c48fe5a..0bccd9f835a 100644
--- a/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs
+++ b/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/Server.hs
@@ -115,7 +115,7 @@ blockFetchServer tracer chainDB _version registry = senderSide
       next <- ChainDB.iteratorNext it
       case next of
         IteratorResult blk     -> do
-          traceWith tracer TraceBlockFetchServerSendBlock
+          traceWith tracer $ TraceBlockFetchServerSendBlock $ point blk
           return $ SendMsgBlock (withoutPoint blk) (sendBlocks it)
         IteratorExhausted      -> do
           ChainDB.iteratorClose it
@@ -132,5 +132,5 @@ blockFetchServer tracer chainDB _version registry = senderSide
 -- | Events traced by the Block Fetch Server.
 data TraceBlockFetchServerEvent blk =
     -- | The server sent a block to the peer.
-    TraceBlockFetchServerSendBlock
+    TraceBlockFetchServerSendBlock !(Point blk)
   deriving (Eq, Show)