assistant: Run transferkeys as batch jobs.

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

debian/changelog

@@ -4,6 +4,7 @@ git-annex (5.20131131) UNRELEASED; urgency=low
     it will read the full contents of files in the tree.
   * assistant: Batch jobs are now run with ionice and nocache, when
     those commands are available.
+  * assistant: Run transferkeys as batch jobs.
 
  -- Joey Hess <joeyh@debian.org>  Sun, 01 Dec 2013 13:57:58 -0400