Resurrect UTxO size metric

Author: jasagredo

cabal.project

@@ -83,8 +83,8 @@ source-repository-package
 source-repository-package
   type: git
   location: https://github.com/IntersectMBO/ouroboros-consensus
-  tag: 7b0f9abf297fad11929752d157833c28bfee454f
-  --sha256: sha256-LJ3HOR6BKUJFcKR70heDivut8Xn9g9w2UTYFlBnPoqs=
+  tag: 972437d82702c63e9afd657234bfc719fd1d4a3c
+  --sha256: sha256-cvGExgqf66s1ck5IAl5HlfwSLQMdmdn9G3Moo/gAVqY=
   subdir:
     ouroboros-consensus
     ouroboros-consensus-cardano

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

@@ -105,7 +105,7 @@ traceLedgerMetrics nodeKern slotNo tracer = do
   query <- mapNodeKernelDataIO
               (\nk ->
                 (,,) -- (,,,,)
-                  <$> fmap (maybe 0 LedgerDB.ledgerTableSize) (ChainDB.getStatistics $ getChainDB nk)
+                  <$> fmap LedgerDB.ledgerTableSize (ChainDB.getStatistics $ getChainDB nk)
                   <*> nkQueryLedger (ledgerDelegMapSize . ledgerState) nk
                   <*> nkQueryChain fragmentChainDensity nk
 {- see Note [GovMetrics]

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

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