hbro-1.3.0.0: library/System/Process/Extended.hs

{-# LANGUAGE FlexibleContexts  #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns      #-}
module System.Process.Extended where

-- {{{ Imports
import           Hbro.Logger

import           ClassyPrelude

import           System.Process
-- }}}

-- | Run external command and don't die when parent process exits.
spawn :: (MonadLogger m, MonadIO m) => Text -> [Text] -> m ()
spawn (unpack -> command) (map unpack -> options) = do
    debug $ "Executing command: " ++ pack (showCommandForUser command options)
    liftIO . void $ createProcess (proc command options) { std_in = CreatePipe, std_out = CreatePipe, std_err = CreatePipe, close_fds = True }