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/Process.hs | |
parent | 3e70d73d4499689840596598ea943296a34b53ab (diff) |
Show GDB console output always and without prompt
Diffstat (limited to 'src/Process.hs')
-rw-r--r-- | src/Process.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Process.hs b/src/Process.hs index de834a5..8548e73 100644 --- a/src/Process.hs +++ b/src/Process.hs @@ -68,7 +68,7 @@ send p line = liftIO $ do hFlush (procStdin p) outProc :: MonadOutput m => OutputType -> Process -> Text -> m () -outProc otype p line = outLine otype (textProcName $ procName p) line +outProc otype p line = outLine otype (Just $ textProcName $ procName p) line lineReadingLoop :: MonadOutput m => Process -> Handle -> (Text -> m ()) -> m () lineReadingLoop process h act = |