let's use words and unwords rather than split and intercalate " "

Command/RecvKey.hs

@@ -45,7 +45,7 @@ start key = ifM (inAnnex key)
   where
 	go tmp = do
 		(opts,_,_) <- getOpt Permute rsyncSafeOptions <$>
-				maybe [] (split " ") <$> getField "RsyncOptions"
+				maybe [] words <$> getField "RsyncOptions"
 		ifM (liftIO $ rsyncServerReceive (map Param opts) tmp)
 			( ifM (isJust <$> Fields.getField Fields.direct)
 				( directcheck tmp

Command/SendKey.hs

@@ -28,7 +28,7 @@ seek = [withKeys start]
 start :: Key -> CommandStart
 start key = do
 	(opts,_,_) <- getOpt Permute rsyncSafeOptions <$>
-			maybe [] (split " ") <$> getField "RsyncOptions"
+			maybe [] words <$> getField "RsyncOptions"
 	ifM (inAnnex key)
 		( fieldTransfer Upload key $ \_p ->
 			sendAnnex key rollback $ liftIO . rsyncServerSend (map Param opts)

GitAnnexShell.hs

@@ -89,7 +89,7 @@ builtin cmd dir params = do
 	checkDirectory $ Just dir
 	let (params', fieldparams, opts) = partitionParams params
 	    fields = filter checkField $ parseFields fieldparams
-	    cmds' = map (newcmd $ intercalate " " opts) cmds
+	    cmds' = map (newcmd $ unwords opts) cmds
 	dispatch False (cmd : params') cmds' options fields header $
 		Git.Construct.repoAbsPath dir >>= Git.Construct.fromAbsPath
   where