diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-02 16:06:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-02 16:06:34 -0400 |
| commit | a8fb1b684ef93c02b0741e18998e6b20d1d880f1 (patch) | |
| tree | 057a31fd2f530b3a7e994f7c822721f42948adfb /Remote/Git.hs | |
| parent | 04f31f98ee20f67214d579374b2e5a0f0a1659ec (diff) | |
Added ways to configure rsync options to be used only when uploading or downloading from a remote. Useful to eg limit upload bandwidth.
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 93110745c..d714cfec5 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -310,7 +310,7 @@ copyFromRemote r key file dest _p = copyFromRemote' r key file dest copyFromRemote' :: Remote -> Key -> AssociatedFile -> FilePath -> Annex Bool copyFromRemote' r key file dest | not $ Git.repoIsUrl (repo r) = guardUsable (repo r) False $ do - let params = Ssh.rsyncParams r + let params = Ssh.rsyncParams r Download u <- getUUID -- run copy from perspective of remote liftIO $ onLocal (repo r) $ do @@ -409,7 +409,7 @@ copyToRemote r key file p -- the remote's Annex, but it needs access to the current -- Annex monad's state. checksuccessio <- Annex.withCurrentState checksuccess - let params = Ssh.rsyncParams r + let params = Ssh.rsyncParams r Upload u <- getUUID -- run copy from perspective of remote liftIO $ onLocal (repo r) $ ifM (Annex.Content.inAnnex key) |