mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't refer to git-annex, as this is a generic utility library

Browse source
This commit is contained in:
Joey Hess 2013-03-30 18:54:09 -04:00
parent 3482607da1
commit 5ed67562f6
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Utility/Rsync.hs
View file

@ -130,11 +130,11 @@ parseRsyncProgress = go [] . reverse . progresschunks
(_, []) -> Nothing (_, []) -> Nothing
(b, _) -> readish b (b, _) -> readish b
{- To prevent an evil client to run harmful options on the server, we {- Rsync options that are safe to pass to rsync in server mode, without
- cherry-pick those that are harmless. Them only are passed to rsync - causing it to eg, expose files.
- when executed through 'git-annex-shell'. -
- Note: Ensure that when calling getopt, the first component of the - Note: Ensure that when calling getopt, the first component of the
- outupt is a subset of the input. - output is a subset of the input.
-} -}
rsyncSafeOptions :: [OptDescr String] rsyncSafeOptions :: [OptDescr String]
rsyncSafeOptions = [ Option [] ["bwlimit"] (reqArgLong "bwlimit") "" ] rsyncSafeOptions = [ Option [] ["bwlimit"] (reqArgLong "bwlimit") "" ]