diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2022-05-04 20:50:06 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2022-05-04 21:21:41 +0200 |
commit | 359607468fac0ed11bfc1a3579c69fe4310419cb (patch) | |
tree | e7c7b808abd3e330bdf52e72d77a40e71ca28ce3 /src/Process.hs | |
parent | cd43896891dc7c6779af0f1d2d8f3f045edc162a (diff) |
Test run monad
Diffstat (limited to 'src/Process.hs')
-rw-r--r-- | src/Process.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Process.hs b/src/Process.hs index 9943d30..958910d 100644 --- a/src/Process.hs +++ b/src/Process.hs @@ -6,6 +6,7 @@ module Process ( ) where import Control.Concurrent.STM +import Control.Monad.IO.Class import Data.Text (Text) import qualified Data.Text as T @@ -36,7 +37,7 @@ textProcName ProcNameGDB = T.pack "gdb" unpackProcName :: ProcName -> String unpackProcName = T.unpack . textProcName -send :: Process -> Text -> IO () -send p line = do +send :: MonadIO m => Process -> Text -> m () +send p line = liftIO $ do T.hPutStrLn (procStdin p) line hFlush (procStdin p) |