diff options
author | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
commit | e0aff931023a6c3f7a06caaa5dfa1aad2da3889d (patch) | |
tree | f1960ca033d5196da417e7c4d1f0e579bdc21e46 /Utility/Process.hs | |
parent | 232fce59fabc4243c9b9d7944589986c5cc73f16 (diff) | |
download | git-repair-e0aff931023a6c3f7a06caaa5dfa1aad2da3889d.tar.gz |
merge from git-annex
Diffstat (limited to 'Utility/Process.hs')
-rw-r--r-- | Utility/Process.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index 1945e4b..3f93dc2 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 |