Dump header hash and slot no for events

Co-authored-by: KtorZ <matthias.benkort@gmail.com>
CardanoSolutions · Sep 21, 2023 · 1ec2af8 · 1ec2af8
1 parent 751454d
commit 1ec2af8
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/cardano-node/src/Cardano/Node/Run.hs b/cardano-node/src/Cardano/Node/Run.hs
@@ -88,7 +88,9 @@ import           Cardano.Tracing.Config (TraceOptions (..), TraceSelection (..))
 
 import qualified Ouroboros.Consensus.Config as Consensus
 import           Ouroboros.Consensus.Config.SupportsNode (ConfigSupportsNode (..))
-import           Ouroboros.Consensus.Ledger.Basics (AuxLedgerEvent, LedgerState)
+import           Ouroboros.Consensus.Ledger.Basics (LedgerEventHandler(..), LedgerState,
+                   discardEvent)
+import           Ouroboros.Consensus.Ledger.Extended (ExtLedgerState)
 import           Ouroboros.Consensus.Node (NetworkP2PMode (..), RunNodeArgs (..),
                    StdRunNodeArgs (..))
 import qualified Ouroboros.Consensus.Node as Node (getChainDB, run)
@@ -169,12 +171,12 @@ runNode cmdPc = do
       SomeConsensusProtocol blk runP ->
         handleNodeWithTracers
           (case blk of
-            Api.CardanoBlockType -> \event -> do
-              putStrLn $ "New ledger event: " <> show (convertAuxLedgerEvent event)
+            Api.CardanoBlockType -> LedgerEventHandler $ \headerHash slotNo event -> do
+              putStrLn $ "New ledger event: " <> show headerHash <> " " <> show slotNo <> " " <> show (convertAuxLedgerEvent event)
             Api.ByronBlockType{} ->
-              const $ pure ()
+              discardEvent
             Api.ShelleyBlockType{} ->
-              const $ pure ()
+              discardEvent
           )
           cmdPc nc p networkMagic runP
 
@@ -200,7 +202,7 @@ handleNodeWithTracers
   :: ( TraceConstraints blk
      , Api.Protocol IO blk
      )
-  => (AuxLedgerEvent (LedgerState blk) -> IO ())
+  => LedgerEventHandler IO (ExtLedgerState blk)
   -> PartialNodeConfiguration
   -> NodeConfiguration
   -> SomeConsensusProtocol
@@ -337,7 +339,7 @@ handlePeersListSimple tr nodeKern = forever $ do
 
 handleSimpleNode
   :: forall blk p2p . Api.Protocol IO blk
-  => (AuxLedgerEvent (LedgerState blk) -> IO ())
+  => LedgerEventHandler IO (ExtLedgerState blk)
   -> Api.ProtocolInfoArgs IO blk
   -> NetworkP2PMode p2p
   -> Tracers RemoteConnectionId LocalConnectionId blk p2p