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) |