{-# LANGUAGE CPP, MultiParamTypeClasses #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module System.Process.ByteString.Lazy where
#if __GLASGOW_HASKELL__ <= 709
import Control.Applicative ((<$>))
#endif
import Control.DeepSeq (force)
import qualified Control.Exception as C (evaluate)
import Data.ByteString.Lazy (ByteString, toChunks, fromChunks)
import Data.ListLike.IO (hGetContents)
import Data.Word (Word8)
import Prelude hiding (null)
import System.Process
import System.Process.Common
import System.Exit (ExitCode)
#if !MIN_VERSION_bytestring(0,10,0)
import Control.DeepSeq (NFData)
instance NFData ByteString
#endif
instance ProcessText ByteString Word8
instance ListLikeProcessIO ByteString Word8 where
forceOutput :: ByteString -> IO ByteString
forceOutput = ByteString -> IO ByteString
forall a. a -> IO a
C.evaluate (ByteString -> IO ByteString)
-> (ByteString -> ByteString) -> ByteString -> IO ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
forall a. NFData a => a -> a
force
readChunks :: Handle -> IO [ByteString]
readChunks Handle
h = ((StrictByteString -> ByteString)
-> [StrictByteString] -> [ByteString]
forall a b. (a -> b) -> [a] -> [b]
map ([StrictByteString] -> ByteString
fromChunks ([StrictByteString] -> ByteString)
-> (StrictByteString -> [StrictByteString])
-> StrictByteString
-> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (StrictByteString -> [StrictByteString] -> [StrictByteString]
forall a. a -> [a] -> [a]
: [])) ([StrictByteString] -> [ByteString])
-> (ByteString -> [StrictByteString]) -> ByteString -> [ByteString]
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> [StrictByteString]
toChunks) (ByteString -> [ByteString]) -> IO ByteString -> IO [ByteString]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Handle -> IO ByteString
forall full item. ListLikeIO full item => Handle -> IO full
hGetContents Handle
h
readProcessWithExitCode
:: FilePath
-> [String]
-> ByteString
-> IO (ExitCode, ByteString, ByteString)
readProcessWithExitCode :: FilePath
-> [FilePath]
-> ByteString
-> IO (ExitCode, ByteString, ByteString)
readProcessWithExitCode = FilePath
-> [FilePath]
-> ByteString
-> IO (ExitCode, ByteString, ByteString)
forall text char.
ListLikeProcessIO text char =>
FilePath -> [FilePath] -> text -> IO (ExitCode, text, text)
System.Process.Common.readProcessWithExitCode
readCreateProcessWithExitCode
:: CreateProcess
-> ByteString
-> IO (ExitCode, ByteString, ByteString)
readCreateProcessWithExitCode :: CreateProcess
-> ByteString -> IO (ExitCode, ByteString, ByteString)
readCreateProcessWithExitCode = CreateProcess
-> ByteString -> IO (ExitCode, ByteString, ByteString)
forall maker text char.
(ProcessMaker maker, ListLikeProcessIO text char) =>
maker -> text -> IO (ExitCode, text, text)
System.Process.Common.readCreateProcessWithExitCode