summaryrefslogtreecommitdiff
path: root/Utility/Process.hs
diff options
context:
space:
mode:
authorJoey Hess2014-05-10 10:46:36 -0300
committerJoey Hess2014-05-10 10:46:36 -0300
commitdd0e3495cc6bf05eee99ecd437ad67bf5f4842c0 (patch)
treebb98422e69b5933bf3da74b142c87aba549ce86d /Utility/Process.hs
parentc2375ae087903fb2c956eb046adf857b6b2f4ae2 (diff)
merge from git-annex
Diffstat (limited to 'Utility/Process.hs')
-rw-r--r--Utility/Process.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs
index 1945e4b9..3f93dc2f 100644
--- a/Utility/Process.hs
+++ b/Utility/Process.hs
@@ -31,6 +31,7 @@ module Utility.Process (
stdinHandle,
stdoutHandle,
stderrHandle,
+ processHandle,
devNull,
) where
@@ -313,6 +314,9 @@ bothHandles :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> (Han
bothHandles (Just hin, Just hout, _, _) = (hin, hout)
bothHandles _ = error "expected bothHandles"
+processHandle :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> ProcessHandle
+processHandle (_, _, _, pid) = pid
+
{- Debugging trace for a CreateProcess. -}
debugProcess :: CreateProcess -> IO ()
debugProcess p = do