module UnliftIO.Process (
CreateProcess(..), CmdSpec(..), StdStream(..), ProcessHandle, createProcess
#if MIN_VERSION_process(1,2,1)
, createProcess_
#endif
, P.shell, P.proc
, callProcess, callCommand, spawnProcess, spawnCommand
#if MIN_VERSION_process(1,2,3)
, readCreateProcess
#endif
, readProcess
#if MIN_VERSION_process(1,2,3)
, readCreateProcessWithExitCode
#endif
, readProcessWithExitCode
#if MIN_VERSION_process(1,4,3)
, withCreateProcess
#endif
, P.showCommandForUser
, waitForProcess, getProcessExitCode, terminateProcess, interruptProcessGroupOf
#if MIN_VERSION_process(1,2,1)
, createPipe
#endif
#if MIN_VERSION_process(1,4,2)
, createPipeFd
#endif
) where
import Control.Monad.IO.Unlift
import System.Exit
import System.IO
import System.Posix.Internals
import System.Process
( CmdSpec(..)
, CreateProcess(..)
, ProcessHandle
, StdStream(..)
)
import qualified System.Process as P
createProcess ::
MonadIO m
=> CreateProcess
-> m (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle)
createProcess = liftIO . P.createProcess
#if MIN_VERSION_process(1,2,1)
createProcess_ ::
MonadIO m
=> String
-> CreateProcess
-> m (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle)
createProcess_ msg proc_ = liftIO (P.createProcess_ msg proc_)
#endif
callProcess :: MonadIO m => FilePath -> [String] -> m ()
callProcess cmd args = liftIO (P.callProcess cmd args)
callCommand :: MonadIO m => String -> m ()
callCommand = liftIO . P.callCommand
spawnProcess :: MonadIO m => FilePath -> [String] -> m ProcessHandle
spawnProcess cmd args = liftIO (P.spawnProcess cmd args)
spawnCommand :: MonadIO m => String -> m ProcessHandle
spawnCommand = liftIO . P.spawnCommand
#if MIN_VERSION_process(1,2,3)
readCreateProcess :: MonadIO m => CreateProcess -> String -> m String
readCreateProcess cp input = liftIO (P.readCreateProcess cp input)
#endif
readProcess :: MonadIO m => FilePath -> [String] -> String -> m String
readProcess cmd args input = liftIO (P.readProcess cmd args input)
#if MIN_VERSION_process(1,2,3)
readCreateProcessWithExitCode ::
MonadIO m => CreateProcess -> String -> m (ExitCode, String, String)
readCreateProcessWithExitCode cp input =
liftIO (P.readCreateProcessWithExitCode cp input)
#endif
readProcessWithExitCode ::
MonadIO m => FilePath -> [String] -> String -> m (ExitCode, String, String)
readProcessWithExitCode cmd args input =
liftIO (P.readProcessWithExitCode cmd args input)
#if MIN_VERSION_process(1,4,3)
withCreateProcess ::
MonadUnliftIO m
=> CreateProcess
-> (Maybe Handle -> Maybe Handle -> Maybe Handle -> ProcessHandle -> m a)
-> m a
withCreateProcess c action =
withRunInIO
(\u ->
P.withCreateProcess
c
(\stdin_h stdout_h stderr_h proc_h ->
u (action stdin_h stdout_h stderr_h proc_h)))
#endif
waitForProcess :: MonadIO m => ProcessHandle -> m ExitCode
waitForProcess = liftIO . P.waitForProcess
getProcessExitCode :: MonadIO m => ProcessHandle -> m (Maybe ExitCode)
getProcessExitCode = liftIO . P.getProcessExitCode
terminateProcess :: MonadIO m => ProcessHandle -> m ()
terminateProcess = liftIO . P.terminateProcess
interruptProcessGroupOf :: MonadIO m => ProcessHandle -> m ()
interruptProcessGroupOf = liftIO . P.interruptProcessGroupOf
#if MIN_VERSION_process(1,2,1)
createPipe :: MonadIO m => m (Handle, Handle)
createPipe = liftIO P.createPipe
#endif
#if MIN_VERSION_process(1,4,2)
createPipeFd :: MonadIO m => m (FD, FD)
createPipeFd = liftIO P.createPipeFd
#endif