summaryrefslogtreecommitdiff
path: root/src/GDB.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2022-10-27 21:56:22 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2022-10-27 21:56:22 +0200
commit86351a85ec5c92a390e7bfc70648a67be84619c0 (patch)
tree856b21d62b372ed5e6e64cf105d6f34c860a1965 /src/GDB.hs
parent3e70d73d4499689840596598ea943296a34b53ab (diff)
Show GDB console output always and without prompt
Diffstat (limited to 'src/GDB.hs')
-rw-r--r--src/GDB.hs2
1 files changed, 1 insertions, 1 deletions
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)