diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-01 14:56:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-01 14:56:37 -0400 |
| commit | c6c04581a8567e6b87c8df754947ac8779845507 (patch) | |
| tree | e67d43908fc7000699abffc75564a2990ecebe09 /Assistant/TransferrerPool.hs | |
| parent | 3ac91582743a295c23240b7dabe0cf605a38c4b1 (diff) | |
assistant: Run transferkeys as batch jobs.
Diffstat (limited to 'Assistant/TransferrerPool.hs')
| -rw-r--r-- | Assistant/TransferrerPool.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Assistant/TransferrerPool.hs b/Assistant/TransferrerPool.hs index bb4648731..79b609a1d 100644 --- a/Assistant/TransferrerPool.hs +++ b/Assistant/TransferrerPool.hs @@ -12,6 +12,7 @@ module Assistant.TransferrerPool where import Assistant.Common import Assistant.Types.TransferrerPool import Logs.Transfer +import Utility.Batch #ifndef mingw32_HOST_OS import qualified Command.TransferKeys as T @@ -63,9 +64,11 @@ mkTransferrer program = do , Param "--readfd", Param $ show tread , Param "--writefd", Param $ show twrite ] + {- It runs as a batch job. -} + (program', params') <- toBatchCommand (program, params) {- It's put into its own group so that the whole group can be - killed to stop a transfer. -} - (_, _, _, pid) <- createProcess (proc program $ toCommand params) + (_, _, _, pid) <- createProcess (proc program' $ toCommand params') { create_group = True } closeFd twrite closeFd tread |