Add EB links to EBGenerated event

nfrisby · nfrisby · commit 9979bba0ec24 · 2025-06-18T06:47:01.000-07:00
diff --git a/leios-trace-hs/src/LeiosEvents.hs b/leios-trace-hs/src/LeiosEvents.hs
@@ -119,6 +119,7 @@ data Event where
     , pipeline :: !PipelineNo
     , bytes :: !Word64
     , input_blocks :: ![BlockRef]
+    , endorsement_blocks :: ![BlockRef]
     } ->
     Event
   RBGenerated ::
diff --git a/simulation/src/LeiosProtocol/Short/Sim.hs b/simulation/src/LeiosProtocol/Short/Sim.hs
@@ -355,6 +355,7 @@ sharedEvent leios nodeNames e = case e of
         Shared.EBGenerated
           { bytes = fromIntegral (messageSizeBytes eb)
           , input_blocks = map (Shared.BlockRef . T.pack . mkStringId) eb.inputBlocks
+          , endorsement_blocks = map (Shared.BlockRef . T.pack . mkStringId) eb.endorseBlocksEarlierPipeline
           , pipeline = coerce $ endorseBlockPipeline leios eb
           , ..
           }

Original file line number	Diff line number	Diff line change
`@@ -355,6 +355,7 @@ sharedEvent leios nodeNames e = case e of`
`355`	`355`	`Shared.EBGenerated`
`356`	`356`	`{ bytes = fromIntegral (messageSizeBytes eb)`
`357`	`357`	`, input_blocks = map (Shared.BlockRef . T.pack . mkStringId) eb.inputBlocks`
	`358`	`+ , endorsement_blocks = map (Shared.BlockRef . T.pack . mkStringId) eb.endorseBlocksEarlierPipeline`
`358`	`359`	`, pipeline = coerce $ endorseBlockPipeline leios eb`
`359`	`360`	`, ..`
`360`	`361`	`}`