diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
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:) |