From 64b8ecb5a3e5dd8785f7d54552533408c74e9d2c Mon Sep 17 00:00:00 2001
From: Andrea Vezzosi <andrea@well-typed.com>
Date: Wed, 18 Dec 2024 09:54:46 +0100
Subject: [PATCH] simulation: reorder diffution latency charts, fix labels

---
 simulation/src/LeiosProtocol/Short/VizSimP2P.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/simulation/src/LeiosProtocol/Short/VizSimP2P.hs b/simulation/src/LeiosProtocol/Short/VizSimP2P.hs
index 2c8584e6..5ef105fc 100644
--- a/simulation/src/LeiosProtocol/Short/VizSimP2P.hs
+++ b/simulation/src/LeiosProtocol/Short/VizSimP2P.hs
@@ -381,7 +381,7 @@ chartDiffusionLatency cfg@LeiosP2PSimVizConfig{nodeMessageColor} tag =
  where
   theChart lbl nodePos nodeMsgColor msgsDiffusionLatency =
     (Chart.def :: Chart.Layout DiffTime Chart.Percent)
-      { Chart._layout_title = "Diffusion latency" ++ "(" ++ lbl ++ ")"
+      { Chart._layout_title = "Diffusion latency" ++ " (" ++ lbl ++ ")"
       , Chart._layout_title_style = Chart.def{Chart._font_size = 15}
       , Chart._layout_y_axis =
           (Chart.def :: Chart.LayoutAxis Chart.Percent)
@@ -711,7 +711,7 @@ example2 seed sliceLength maybeP2PTopography =
                     --         0.1
                     --         (96 / 1000)
                     --         config
-                    tag <- [minBound .. maxBound]
+                    tag <- [IB, EB, VT, RB]
                     ]
                 , LayoutAbove
                     [ LayoutReqSize 350 300 $