diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-27 21:56:22 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-10-27 21:56:22 +0200 |
commit | 86351a85ec5c92a390e7bfc70648a67be84619c0 (patch) | |
tree | 856b21d62b372ed5e6e64cf105d6f34c860a1965 /src/GDB.hs | |
parent | 3e70d73d4499689840596598ea943296a34b53ab (diff) |
Show GDB console output always and without prompt
Diffstat (limited to 'src/GDB.hs')
-rw-r--r-- | src/GDB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |