CAD-2166 node tracers: delegation map size along UTxO size in TraceSt…

…artLeadershipCheck
IntersectMBO · Dec 2, 2020 · 8bc7fc5 · 8bc7fc5
1 parent dde4d61
commit 8bc7fc5
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs
@@ -495,8 +495,10 @@ traceLeadershipChecks _ft nodeKern _tverb tr = Tracer $
       Consensus.TraceStartLeadershipCheck slot -> do
         !query <- mapNodeKernelDataIO
                     (\nk ->
-                       (,) <$> nkQueryLedger (ledgerUtxoSize . ledgerState) nk
-                           <*> nkQueryChain fragmentChainDensity nk)
+                       (,,)
+                         <$> nkQueryLedger (ledgerUtxoSize . ledgerState) nk
+                         <*> nkQueryLedger (ledgerDelegMapSize . ledgerState) nk
+                         <*> nkQueryChain fragmentChainDensity nk)
                     nodeKern
         meta <- mkLOMeta sev Public
         traceNamedObject tr
@@ -507,8 +509,9 @@ traceLeadershipChecks _ft nodeKern _tverb tr = Tracer $
             ,("slot", toJSON $ unSlotNo slot)]
             ++ fromSMaybe []
                (query <&>
-                 \(utxoSize, chainDensity) ->
+                 \(utxoSize, delegMapSize, chainDensity) ->
                    [ ("utxoSize",     toJSON utxoSize)
+                   , ("delegMapSize", toJSON delegMapSize)
                    , ("chainDensity", toJSON (fromRational chainDensity :: Float))
                    ])
           )