CAD-391 output every 100th elided message

IntersectMBO · Jan 3, 2020 · 54c8875 · 54c8875
1 parent 3a8126b
commit 54c8875
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs
@@ -132,7 +132,12 @@ instance ElidingTracer
   doelide (WithSeverity _ (WithTip _ (ChainDB.TraceLedgerReplayEvent _))) = True
   doelide (WithSeverity _ (WithTip _ (ChainDB.TraceGCEvent _))) = True
   doelide _ = False
-
+  conteliding _tform _tverb _tr _ (Nothing, _count) = return (Nothing, 0)
+  conteliding _tform _tverb tr ev (_old, count) = do
+      when (count > 0 && count `mod` 100 == 0) $ do  -- report every 100th elided message
+          meta <- mkLOMeta (defineSeverity ev) (definePrivacyAnnotation ev)
+          traceNamedObject tr (meta, LogValue "messages elided so far" (PureI $ toInteger count))
+      return (Just ev, count + 1)
 
 -- | Smart constructor of 'NodeTraces'.
 --