diff options
author | Joey Hess <joey@kitenet.net> | 2012-09-21 23:25:06 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-09-21 23:25:06 -0400 |
commit | c048add74dc91609e98e3513b0d167c5c7c9048c (patch) | |
tree | 7ebd020d494e43c9eb154a0390bf6b1101d1a4d6 /Utility | |
parent | ee8789e9d74e74bb453925d46d1b0eed904e323f (diff) |
hooked up git-annex-shell transferinfo
Finally done with progressbars!
Diffstat (limited to 'Utility')
-rw-r--r-- | Utility/Process.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index 1c99b83ca..1e93569be 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -17,6 +17,7 @@ module Utility.Process ( writeReadProcessEnv, forceSuccessProcess, checkSuccessProcess, + ignoreFailureProcess, createProcessSuccess, createProcessChecked, createBackgroundProcess, @@ -24,6 +25,9 @@ module Utility.Process ( withBothHandles, createProcess, runInteractiveProcess, + stdinHandle, + stdoutHandle, + stderrHandle, ) where import qualified System.Process @@ -112,6 +116,9 @@ checkSuccessProcess pid = do code <- waitForProcess pid return $ code == ExitSuccess +ignoreFailureProcess :: ProcessHandle -> IO () +ignoreFailureProcess = void . waitForProcess + {- Runs createProcess, then an action on its handles, and then - forceSuccessProcess. -} createProcessSuccess :: CreateProcessRunner |