summaryrefslogtreecommitdiff
path: root/src/Run.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Run.hs')
-rw-r--r--src/Run.hs10
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..."