From 86351a85ec5c92a390e7bfc70648a67be84619c0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 27 Oct 2022 21:56:22 +0200 Subject: Show GDB console output always and without prompt --- src/GDB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GDB.hs') diff --git a/src/GDB.hs b/src/GDB.hs index 75f42fe..8cd6e10 100644 --- a/src/GDB.hs +++ b/src/GDB.hs @@ -132,7 +132,7 @@ gdbLine gdb rline = either (outProc OutputError (gdbProcess gdb) . T.pack . erro , Just (MiString tgid) <- lookup "group-id" params -> liftIO $ modifyMVar_ (gdbInferiors gdb) $ return . map (\inf -> if infThreadGroup inf == tgid then inf { infThreads = filter (/=tid) $ infThreads inf } else inf) _ -> return () - ConsoleStreamOutput line -> mapM_ (outProc OutputChildStdout (gdbProcess gdb)) (T.lines line) + ConsoleStreamOutput line -> mapM_ (outLine OutputAlways Nothing) (T.lines line) TargetStreamOutput line -> mapM_ (outProc OutputChildStderr (gdbProcess gdb) . ("target-stream: " <>)) (T.lines line) LogStreamOutput line -> mapM_ (outProc OutputChildInfo (gdbProcess gdb) . ("log: " <>)) (T.lines line) -- cgit v1.2.3