From 8de7699f3905f5a3feb88cd6297f982f3666a201 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 24 Aug 2012 17:23:58 -0400 Subject: add transferkey command Used by the assistant, rather than copy, this is faster because it avoids using git ls-files, avoids checking the location log redundantly, and runs in oneshot mode, avoiding making a commit to the git-annex branch for every file transferred. --- Assistant/Threads/Transferrer.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Assistant/Threads/Transferrer.hs') diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 8118a3f3c..cb6f642bf 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -17,6 +17,7 @@ import Logs.Transfer import Logs.Location import Annex.Content import qualified Remote +import Types.Key import System.Process (create_group) @@ -101,11 +102,12 @@ transferThread dstatus slots t info runner = case (transferRemote info, associat where command = "git-annex" params = - [ Param "copy" - , Param "--fast" + [ Param "transferkey" + , Param $ key2file $ transferKey t , Param $ if isdownload then "--from" else "--to" , Param $ Remote.name remote + , Param "--file" , File file ] -- cgit v1.2.3