Fix printing of candidate tips in traces

IntersectMBO · Apr 29, 2024 · a883353 · a883353
1 parent 3d06ae9
commit a883353
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PeerSimulator/Trace.hs b/ouroboros-consensus-diffusion/test/consensus-test/Test/Consensus/PeerSimulator/Trace.hs
@@ -434,7 +434,7 @@ terseGDDEvent = \case
       "      Selection: " ++ terseHFragment curChain,
       "      Candidates:"
       ] ++
-      showPeers (either (const "G") terseHeader . AF.head <$> candidates) ++
+      showPeers (tersePoint . castPoint . AF.headPoint <$> candidates) ++
       [
       "      Candidate suffixes (bounds):"
       ] ++