From d22257b9f43ba30dd3ca1274d1aa61e688585785 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 27 Nov 2024 20:44:00 +0100 Subject: Remove embedded Expr for some inner TestBlock parameters --- src/Run.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Run.hs') diff --git a/src/Run.hs b/src/Run.hs index 76545e4..31a3c9e 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -162,18 +162,18 @@ evalBlock (TestBlock steps) = forM_ steps $ \case testStepGuard line vars expr DisconnectNode node inner -> do - withDisconnectedUp (nodeUpstream node) $ evalBlock =<< eval inner + withDisconnectedUp (nodeUpstream node) $ evalBlock inner DisconnectNodes net inner -> do - withDisconnectedBridge (netBridge net) $ evalBlock =<< eval inner + withDisconnectedBridge (netBridge net) $ evalBlock inner DisconnectUpstream net inner -> do case netUpstream net of - Just link -> withDisconnectedUp link $ evalBlock =<< eval inner - Nothing -> evalBlock =<< eval inner + Just link -> withDisconnectedUp link $ evalBlock inner + Nothing -> evalBlock inner PacketLoss loss node inner -> do - withNodePacketLoss node loss $ evalBlock =<< eval inner + withNodePacketLoss node loss $ evalBlock inner Wait -> do void $ outPromptGetLine "Waiting..." -- cgit v1.2.3