diff options
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 170c6fbf6..5ac79df6d 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -386,7 +386,7 @@ copyFromRemote' r key file dest meterupdate let go = copier #endif runTransfer (Transfer Download u key) - file noRetry go + file noRetry noObserver go <&&> checksuccess | Git.repoIsSsh (repo r) = feedprogressback $ \feeder -> do direct <- isDirect @@ -502,7 +502,7 @@ copyToRemote' r key file p ( return True , do ensureInitialized - runTransfer (Transfer Download u key) file noRetry $ const $ + runTransfer (Transfer Download u key) file noRetry noObserver $ const $ Annex.Content.saveState True `after` Annex.Content.getViaTmpChecked (liftIO checksuccessio) key (\d -> rsyncOrCopyFile params object d p) |