From baa086bd025ce49a75d8cc9d64d24615ab960357 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 16 Apr 2025 21:44:20 +0200
Subject: Shell interpreter for test script

Changelog: Experimental shell interpreter
---
 src/GDB.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GDB.hs')

diff --git a/src/GDB.hs b/src/GDB.hs
index 2862065..0819600 100644
--- a/src/GDB.hs
+++ b/src/GDB.hs
@@ -75,7 +75,7 @@ gdbStart onCrash = do
 
     let process = Process
             { procName = ProcNameGDB
-            , procHandle = handle
+            , procHandle = Left handle
             , procStdin = hin
             , procOutput = pout
             , procKillWith = Nothing
@@ -144,7 +144,7 @@ gdbLine gdb rline = either (outProc OutputError (gdbProcess gdb) . T.pack . erro
 
 addInferior :: MonadOutput m => GDB -> Process -> m ()
 addInferior gdb process = do
-    liftIO (getPid $ procHandle process) >>= \case
+    liftIO (either getPid (\_ -> return Nothing) $ procHandle process) >>= \case
         Nothing -> outProc OutputError process $ "failed to get PID"
         Just pid -> do
             tgid <- liftIO (atomically $ tryReadTChan $ gdbThreadGroups gdb) >>= \case
-- 
cgit v1.2.3