From 71786719c2480090c1d2df88bc390b088185d7cb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 1 Apr 2023 19:32:24 +0200
Subject: Network namespace type

---
 src/Process.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Process.hs')

diff --git a/src/Process.hs b/src/Process.hs
index a90a734..09745fb 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -29,6 +29,7 @@ import System.Process
 
 import {-# SOURCE #-} GDB
 import Network
+import Network.Ip
 import Output
 import Run.Monad
 import Test
@@ -89,7 +90,7 @@ lineReadingLoop process h act =
 spawnOn :: Either Network Node -> ProcName -> Maybe Signal -> String -> TestRun Process
 spawnOn target pname killWith cmd = do
     let netns = either netnsName netnsName target
-    let prefix = T.unpack $ "ip netns exec \"" <> netns <> "\" "
+    let prefix = T.unpack $ "ip netns exec \"" <> textNetnsName netns <> "\" "
     (Just hin, Just hout, Just herr, handle) <- liftIO $ createProcess (shell $ prefix ++ cmd)
         { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe
         , env = Just [("EREBOS_DIR", either netDir nodeDir target)]
-- 
cgit v1.2.3