From 95e2468b3c92e6689a5de4a2c03a79b3ef035f8b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 2 Apr 2023 21:02:47 +0200 Subject: Disconnect commands --- src/Run/Monad.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Run/Monad.hs') diff --git a/src/Run/Monad.hs b/src/Run/Monad.hs index 221f6d7..5b55897 100644 --- a/src/Run/Monad.hs +++ b/src/Run/Monad.hs @@ -16,11 +16,13 @@ import Control.Monad.Except import Control.Monad.Reader import Data.Map (Map) +import Data.Set (Set) import Data.Scientific import qualified Data.Text as T import {-# SOURCE #-} GDB import {-# SOURCE #-} Network +import Network.Ip import Output import {-# SOURCE #-} Process import Test @@ -39,7 +41,9 @@ data TestEnv = TestEnv data TestState = TestState { tsNetwork :: Network , tsVars :: [(VarName, SomeVarValue)] - , tsNodePacketLoss :: Map NodeName Scientific + , tsDisconnectedUp :: Set NetworkNamespace + , tsDisconnectedBridge :: Set NetworkNamespace + , tsNodePacketLoss :: Map NetworkNamespace Scientific } data TestOptions = TestOptions -- cgit v1.2.3