From 3ba41b1d37a82effa2fc5b5a3f5b8d8da470c6bc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 15:34:43 -0400 Subject: propellor spin --- src/Utility/Process/Shim.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/Utility/Process/Shim.hs') diff --git a/src/Utility/Process/Shim.hs b/src/Utility/Process/Shim.hs index 202b7c32..08694d5d 100644 --- a/src/Utility/Process/Shim.hs +++ b/src/Utility/Process/Shim.hs @@ -1,8 +1,12 @@ -module Utility.Process.Shim (module X, createProcess) where +module Utility.Process.Shim (module X, createProcess, waitForProcess) where -import System.Process as X hiding (createProcess) -import Utility.ConcurrentOutput (createProcessConcurrent) +import System.Process as X hiding (createProcess, waitForProcess) +import Utility.ConcurrentOutput (createProcessConcurrent, waitForProcessConcurrent) import System.IO +import System.Exit createProcess :: CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) createProcess = createProcessConcurrent + +waitForProcess :: ProcessHandle -> IO ExitCode +waitForProcess = waitForProcessConcurrent -- cgit v1.3-2-g0d8e