diff options
| author | tv <tv@krebsco.de> | 2020-05-01 09:44:54 +0200 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2020-05-01 09:46:01 +0200 |
| commit | e91de0e9ac597f3aa1bda0692b6ca5b969fdbe5d (patch) | |
| tree | aa830e0921bc01a9e05ddafffb8296391c2e5a1a | |
| parent | 59346062401f7ce7ade53d1f45128cb0a76341b4 (diff) | |
Flameshot.Internal.Process.run: input bytestrings
| -rw-r--r-- | src/Flameshot/Internal/Process.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Flameshot/Internal/Process.hs b/src/Flameshot/Internal/Process.hs index e38a145..31e2fee 100644 --- a/src/Flameshot/Internal/Process.hs +++ b/src/Flameshot/Internal/Process.hs @@ -15,7 +15,7 @@ import Data.Text (Text) import qualified Data.Text.IO as T import System.Exit import System.IO (BufferMode(LineBuffering),hSetBuffering) -import System.IO (Handle,hClose,hPutStr,hIsEOF) +import System.IO (Handle,hClose,hIsEOF) import System.IO.Error (catchIOError,isDoesNotExistError) import System.Process import System.Posix.Directory (changeWorkingDirectory) @@ -74,7 +74,7 @@ run :: FilePath -> [String] -> Maybe FilePath -> Maybe [(String, String)] - -> String + -> ByteString -> Maybe Int -> Callbacks -> IO () @@ -88,7 +88,7 @@ run path args cwd env input hTimeout Callbacks{..} = onStart pid mapM_ forkIO [ - hPutStr inh input `finally` hClose inh, + BS.hPutStr inh input `finally` hClose inh, hWithLines outh (onOutLine pid), hWithLines errh (onErrLine pid) ] |