From 492568c72273ee2e7f98bc520e46fa01c2959851 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 26 Apr 2023 22:07:06 +0200
Subject: Route tracking in namespaces and helper functions

---
 src/Run.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Run.hs')

diff --git a/src/Run.hs b/src/Run.hs
index 1a0b981..58df868 100644
--- a/src/Run.hs
+++ b/src/Run.hs
@@ -215,9 +215,9 @@ withDisconnectedUp link inner = do
       then inner
       else do
         local (fmap $ \s -> s { tsDisconnectedUp = S.insert netns $ tsDisconnectedUp s }) $ do
-            linkDown link
+            atomicallyWithIO $ linkDown link
             x <- inner
-            linkUp link
+            atomicallyWithIO $ linkUp link
             return x
 
 withDisconnectedBridge :: Link Bridge -> TestRun a -> TestRun a
@@ -228,9 +228,9 @@ withDisconnectedBridge bridge inner = do
       then inner
       else do
         local (fmap $ \s -> s { tsDisconnectedBridge = S.insert netns $ tsDisconnectedBridge s }) $ do
-            linkDown bridge
+            atomicallyWithIO $ linkDown bridge
             x <- inner
-            linkUp bridge
+            atomicallyWithIO $ linkUp bridge
             return x
 
 withNodePacketLoss :: Node -> Scientific -> TestRun a -> TestRun a
-- 
cgit v1.2.3