Remove embedded Expr for some inner TestBlock parameters

1 files changed, 5 insertions, 5 deletions

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..."