Print the CSJ params in traces

IntersectMBO · Apr 25, 2024 · e77b617 · e77b617
1 parent f24408b
commit e77b617
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PointSchedule.hs b/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PointSchedule.hs
@@ -317,8 +317,9 @@ data LoPBucketParams = LoPBucketParams {
   }
 
 data CSJParams = CSJParams {
-  csjpJumpSize :: SlotNo
-}
+    csjpJumpSize :: SlotNo
+  }
+  deriving Show
 
 -- | Similar to 'ChainSyncTimeout' for BlockFetch. Only the states in which the
 -- server has agency are specified. REVIEW: Should it be upstreamed to
@@ -359,6 +360,7 @@ prettyGenesisTest prettySchedule genesisTest =
   , "  gtForecastRange: " ++ show (unForecastRange gtForecastRange)
   , "  gtDelay: " ++ show delta
   , "  gtSlotLength: " ++ show gtSlotLength
+  , "  gtCSJParams: " ++ show gtCSJParams
   , "  gtChainSyncTimeouts: "
   , "    canAwait = " ++ show canAwaitTimeout
   , "    intersect = " ++ show intersectTimeout
@@ -387,6 +389,7 @@ prettyGenesisTest prettySchedule genesisTest =
       , gtBlockFetchTimeouts = BlockFetchTimeout{busyTimeout, streamingTimeout}
       , gtLoPBucketParams = LoPBucketParams{lbpCapacity, lbpRate}
       , gtSlotLength
+      , gtCSJParams
       , gtSchedule
       } = genesisTest