From 0c893f8743bab81077e3ee0fed0993b746d7a269 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 9 Jan 2013 18:42:29 -0400 Subject: Special remotes now all rollback storage of keys that get modified during the transfer, which can happen in direct mode. --- Remote/Git.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Remote/Git.hs') diff --git a/Remote/Git.hs b/Remote/Git.hs index 9b0617652..a5718e328 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -268,7 +268,7 @@ copyFromRemote r key file dest -- run copy from perspective of remote liftIO $ onLocal (repo r) $ do ensureInitialized - Annex.Content.sendAnnex key $ \object -> + Annex.Content.sendAnnex key noop $ \object -> upload u key file noRetry $ rsyncOrCopyFile params object dest | Git.repoIsSsh (repo r) = feedprogressback $ \feeder -> @@ -333,11 +333,11 @@ copyToRemote r key file p | not $ Git.repoIsUrl (repo r) = guardUsable (repo r) False $ commitOnCleanup r $ copylocal | Git.repoIsSsh (repo r) = commitOnCleanup r $ - Annex.Content.sendAnnex key $ \object -> + Annex.Content.sendAnnex key noop $ \object -> rsyncHelper (Just p) =<< rsyncParamsRemote r False key object file | otherwise = error "copying to non-ssh repo not supported" where - copylocal = Annex.Content.sendAnnex key $ \object -> do + copylocal = Annex.Content.sendAnnex key noop $ \object -> do let params = rsyncParams r u <- getUUID -- run copy from perspective of remote -- cgit v1.2.3