summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 95aa83b..f44ce83 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -233,11 +233,7 @@ spawnOn target pname killWith cmd = do
let net = either id nodeNetwork target
asks (teGDB . fst) >>= maybe (return Nothing) (liftIO . tryReadMVar) >>= \case
- Just gdb -> liftIO (getPid handle) >>= \case
- Just pid -> do
- ps <- liftIO $ readMVar (netProcesses net)
- addInferior gdb (length ps) pid
- Nothing -> return ()
+ Just gdb -> addInferior gdb process
Nothing -> return ()
liftIO $ modifyMVar_ (netProcesses net) $ return . (process:)