p2p-governor: Adjust playTimedScript to trace the initial value

This is just for completeness and makes the traces easier to interpret.
IntersectMBO · Sep 27, 2021 · fb30b94 · fb30b94
1 parent d098d90
commit fb30b94
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/ouroboros-network/test/Test/Ouroboros/Network/PeerSelection/Script.hs b/ouroboros-network/test/Test/Ouroboros/Network/PeerSelection/Script.hs
@@ -112,6 +112,7 @@ playTimedScript :: (MonadAsync m, MonadTimer m)
                 => Tracer m a -> TimedScript a -> m (TVar m a)
 playTimedScript tracer (Script ((x0,d0) :| script)) = do
     v <- newTVarIO x0
+    traceWith tracer x0
     _ <- async $ do
            threadDelay (interpretScriptDelay d0)
            sequence_ [ do atomically (writeTVar v x)