diff options
Diffstat (limited to 'src/Process.hs')
| -rw-r--r-- | src/Process.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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)] |