Added ways to configure rsync options to be used only when uploading or downloading from a remote. Useful to eg limit upload bandwidth.
This commit is contained in:
parent
9e4675d3c8
commit
089c0109a2
7 changed files with 60 additions and 21 deletions
|
@ -122,7 +122,7 @@ rsyncParamsRemote direct r direction key file afile = do
|
|||
fields
|
||||
-- Convert the ssh command into rsync command line.
|
||||
let eparam = rsyncShell (Param shellcmd:shellparams)
|
||||
let o = rsyncParams r
|
||||
let o = rsyncParams r direction
|
||||
return $ if direction == Download
|
||||
then o ++ rsyncopts eparam dummy (File file)
|
||||
else o ++ rsyncopts eparam (File file) dummy
|
||||
|
@ -140,7 +140,11 @@ rsyncParamsRemote direct r direction key file afile = do
|
|||
dummy = Param "dummy:"
|
||||
|
||||
-- --inplace to resume partial files
|
||||
rsyncParams :: Remote -> [CommandParam]
|
||||
rsyncParams r = Params "--progress --inplace" :
|
||||
map Param (remoteAnnexRsyncOptions $ gitconfig r)
|
||||
|
||||
rsyncParams :: Remote -> Direction -> [CommandParam]
|
||||
rsyncParams r direction = Params "--progress --inplace" :
|
||||
map Param (remoteAnnexRsyncOptions gc ++ dps)
|
||||
where
|
||||
dps
|
||||
| direction == Download = remoteAnnexRsyncDownloadOptions gc
|
||||
| otherwise = remoteAnnexRsyncUploadOptions gc
|
||||
gc = gitconfig r
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue