ats-setup-0.3.1.1: src/System/Process/Ext.hs

module System.Process.Ext ( silentCreateProcess
                          ) where

import           Control.Monad
import           System.Process

silentCreateProcess :: CreateProcess -> IO ()
silentCreateProcess proc' =
    void $ readCreateProcess (proc' { std_err = CreatePipe }) ""