Merge pull request #6217 from IntersectMBO/old-tracing/hotfix-utxo-metric

HOTFIX: old tracing - fix `utxoSize` metric post-UTxO-HD

Author: mgmeier

cardano-node/src/Cardano/Tracing/Tracers.hs

@@ -1082,7 +1082,7 @@ traceLeadershipChecks _ft nodeKern _tverb tr = Tracer $
         !query <- mapNodeKernelDataIO
                     (\nk ->
                        (,,)
-                         <$> nkQueryLedger (ledgerUtxoSize . ledgerState) nk
+                         <$> fmap (maybe 0 LedgerDB.ledgerTableSize) (ChainDB.getStatistics $ getChainDB nk)
                          <*> nkQueryLedger (ledgerDelegMapSize . ledgerState) nk
                          <*> nkQueryChain fragmentChainDensity nk)
                     nodeKern