Dump header hash and slot no for events

CardanoSolutions · Sep 21, 2023 · e515987 · e515987
1 parent b65bf73
commit e515987
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-node/src/Cardano/Node/Run.hs b/cardano-node/src/Cardano/Node/Run.hs
@@ -169,8 +169,8 @@ runNode cmdPc = do
       SomeConsensusProtocol blk runP ->
         handleNodeWithTracers
           (case blk of
-            Api.CardanoBlockType -> \event -> do
-              putStrLn $ "New ledger event: " <> show (convertAuxLedgerEvent event)
+            Api.CardanoBlockType -> \headerHash slotNo event -> do
+              putStrLn $ "New ledger event: " <> show headerHash <> " " <> show slotNo <> " " <> show (convertAuxLedgerEvent event)
             Api.ByronBlockType{} ->
               const $ pure ()
             Api.ShelleyBlockType{} ->