diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2022-04-30 08:37:45 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-04-30 08:37:45 +0200 |
commit | cd43896891dc7c6779af0f1d2d8f3f045edc162a (patch) | |
tree | ea930aa99205b045141e8812dd0974c99d8394c4 /src/Process.hs | |
parent | cb5677c3d4f5fed1cc0f6cf50236281e1d75838e (diff) |
Separate GDB support module
Diffstat (limited to 'src/Process.hs')
-rw-r--r-- | src/Process.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Process.hs b/src/Process.hs index f409720..9943d30 100644 --- a/src/Process.hs +++ b/src/Process.hs @@ -2,12 +2,14 @@ module Process ( Process(..), ProcName(..), textProcName, unpackProcName, + send, ) where import Control.Concurrent.STM import Data.Text (Text) import qualified Data.Text as T +import qualified Data.Text.IO as T import System.IO import System.Posix.Signals @@ -33,3 +35,8 @@ textProcName ProcNameGDB = T.pack "gdb" unpackProcName :: ProcName -> String unpackProcName = T.unpack . textProcName + +send :: Process -> Text -> IO () +send p line = do + T.hPutStrLn (procStdin p) line + hFlush (procStdin p) |