WIP: peer distance

IntersectMBO · Nov 24, 2020 · cda3515 · cda3515
1 parent 25c735d
commit cda3515
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Consensus.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Consensus.hs
@@ -151,7 +151,7 @@ instance HasSeverityAnnotation (TraceBlockFetchServerEvent blk) where
 
 instance HasPrivacyAnnotation (TraceChainSyncClientEvent blk)
 instance HasSeverityAnnotation (TraceChainSyncClientEvent blk) where
-  getSeverityAnnotation (TraceDownloadedHeader _) = Info
+  getSeverityAnnotation (TraceDownloadedHeader _ _ _) = Info
   getSeverityAnnotation (TraceFoundIntersection _ _ _) = Info
   getSeverityAnnotation (TraceRolledBack _) = Notice
   getSeverityAnnotation (TraceException _) = Warning
@@ -949,9 +949,11 @@ instance ToObject (TraceBlockFetchServerEvent blk) where
 instance (ConvertRawHash blk, LedgerSupportsProtocol blk)
       => ToObject (TraceChainSyncClientEvent blk) where
   toObject verb ev = case ev of
-    TraceDownloadedHeader pt ->
+    (TraceDownloadedHeader pt distance peer) ->
       mkObject [ "kind" .= String "ChainSyncClientEvent.TraceDownloadedHeader"
-               , "block" .= toObject verb (headerPoint pt) ]
+               , "block" .= toObject verb (headerPoint pt)
+               , "distance" .= show distance
+               , "peer" .= show peer ]
     TraceRolledBack tip ->
       mkObject [ "kind" .= String "ChainSyncClientEvent.TraceRolledBack"
                , "tip" .= toObject verb tip ]

diff --git a/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs b/cardano-node/src/Cardano/Tracing/OrphanInstances/Network.hs
@@ -659,6 +659,11 @@ instance ToObject TraceLedgerPeers where
       , "tip" .= show tip
       , "numberOfPools" .= cnt
       ]
+  toObject _verb (LedgerPeersXXX msg) =
+    mkObject
+      [ "kind" .= String "TraceLedgerPeers LedgerPeersXXX"
+      , "msg" .= pack msg
+      ]
 
 instance Show addr => ToObject (WithAddr addr ErrorPolicyTrace) where
   toObject _verb (WithAddr addr ev) =