From 3e70d73d4499689840596598ea943296a34b53ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 23 Oct 2022 20:18:00 +0200
Subject: Start GDB session on signal captured by the debugger

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

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index f44ce83..9d2f9cc 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -150,7 +150,8 @@ initNetwork inner = do
     useGDB <- asks $ optGDB . teOptions . fst
     mgdb <- if useGDB
         then do
-            gdb <- gdbStart
+            failedVar <- asks $ teFailed . fst
+            gdb <- gdbStart $ atomically . writeTVar failedVar . Just . ProcessCrashed
             liftIO $ modifyMVar_ (netProcesses net) $ return . (gdbProcess gdb:)
             Just <$> liftIO (newMVar gdb)
         else return Nothing
-- 
cgit v1.2.3