Make git-annex-shell call the command with its (safe) options.

1 files changed, 12 insertions, 6 deletions

diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs
index c5ff4a9c8..c1c11a550 100644
--- a/Command/RecvKey.hs
+++ b/Command/RecvKey.hs
@@ -11,6 +11,7 @@ import Common.Annex
 import Command
 import CmdLine
 import Annex.Content
+import Annex
 import Utility.Rsync
 import Logs.Transfer
 import Command.SendKey (fieldTransfer)
@@ -19,6 +20,8 @@ import qualified Types.Key
 import qualified Types.Backend
 import qualified Backend
 
+import System.Console.GetOpt
+
 def :: [Command]
 def = [noCommit $ command "recvkey" paramKey seek
 	SectionPlumbing "runs rsync in server mode to receive content"]
@@ -40,13 +43,16 @@ start key = ifM (inAnnex key)
 			)
 	)
   where
-	go tmp = ifM (liftIO $ rsyncServerReceive tmp)
-		( ifM (isJust <$> Fields.getField Fields.direct)
-			( directcheck tmp
-			, return True
+	go tmp = do
+		(opts,_,_) <- getOpt Permute rsyncSafeOptions <$>
+				maybe [] (split " ") <$> getField "RsyncOptions"
+		ifM (liftIO $ rsyncServerReceive (map Param opts) tmp)
+			( ifM (isJust <$> Fields.getField Fields.direct)
+				( directcheck tmp
+				, return True
+				)
+			, return False
 			)
-		, return False
-		)
 	{- If the sending repository uses direct mode, the file
 	 - it sends could be modified as it's sending it. So check
 	 - that the right size file was received, and that the key/value