module System.Process.Run
(runIn
,callProcess)
where
import Control.Exception
import Control.Monad.IO.Class (MonadIO, liftIO)
import Control.Monad.Logger (MonadLogger, logError)
import Data.Conduit.Process hiding (callProcess)
import Data.Foldable (forM_)
import Data.Text (Text)
import qualified Data.Text as T
import Path (Path, Abs, Dir, toFilePath)
import Prelude
import System.Exit (exitWith, ExitCode (..))
import qualified System.Process
import System.Process.Read
runIn :: forall (m :: * -> *).
(MonadLogger m,MonadIO m)
=> Path Abs Dir
-> FilePath
-> EnvOverride
-> [String]
-> Maybe Text
-> m ()
runIn wd cmd menv args errMsg = do
result <- liftIO (try (callProcess (Just wd) menv cmd args))
case result of
Left (ProcessExitedUnsuccessfully _ ec) -> do
$logError $
T.pack $
concat
[ "Exit code "
, show ec
, " while running "
, show (cmd : args)
, " in "
, toFilePath wd]
forM_ errMsg $logError
liftIO (exitWith ec)
Right () -> return ()
callProcess :: (MonadIO m)
=> Maybe (Path Abs Dir)
-> EnvOverride
-> String
-> [String]
-> m ()
callProcess wd menv cmd0 args = do
cmd <- preProcess wd menv cmd0
let c = (proc cmd args) { delegate_ctlc = True
, cwd = fmap toFilePath wd
, env = envHelper menv }
action (_, _, _, p) = do
exit_code <- waitForProcess p
case exit_code of
ExitSuccess -> return ()
ExitFailure _ -> throwIO (ProcessExitedUnsuccessfully c exit_code)
liftIO (System.Process.createProcess c >>= action)