From dd0e3495cc6bf05eee99ecd437ad67bf5f4842c0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 10 May 2014 10:46:36 -0300 Subject: merge from git-annex --- Utility/Process.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Utility/Process.hs') 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 -- cgit v1.3-2-g0d8e