summaryrefslogtreecommitdiff
path: root/src/Utility/Process/Shim.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Utility/Process/Shim.hs')
-rw-r--r--src/Utility/Process/Shim.hs10
1 files changed, 7 insertions, 3 deletions
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