summaryrefslogtreecommitdiff
path: root/src/Utility/Process
diff options
context:
space:
mode:
authorJoey Hess2015-10-27 23:52:02 -0400
committerJoey Hess2015-10-27 23:52:02 -0400
commit894e2f7980052f1c331ba7780100ae0ad19856cb (patch)
treeaffb9ffb3c77d4d8b12bf2cb6666ec28ce6a11a4 /src/Utility/Process
parent261d008d41e6656ce4ceafb8c0f0630d5795944a (diff)
use execProcessConcurrent everywhere
Found a reasonable clean way to make Utility.Process use execProcessConcurrent, while still allowing copying updates to it from git-annex.
Diffstat (limited to 'src/Utility/Process')
-rw-r--r--src/Utility/Process/Shim.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Utility/Process/Shim.hs b/src/Utility/Process/Shim.hs
new file mode 100644
index 00000000..0da93bf7
--- /dev/null
+++ b/src/Utility/Process/Shim.hs
@@ -0,0 +1,8 @@
+module Utility.Process.Shim (module X, createProcess) where
+
+import System.Process as X hiding (createProcess)
+import Propellor.Message (createProcessConcurrent)
+import System.IO
+
+createProcess :: CreateProcess -> IO (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle)
+createProcess = createProcessConcurrent