diff options
Diffstat (limited to 'Command/RecvKey.hs')
-rw-r--r-- | Command/RecvKey.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs index a1c6093e8..041e104a7 100644 --- a/Command/RecvKey.hs +++ b/Command/RecvKey.hs @@ -20,8 +20,6 @@ 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"] @@ -44,8 +42,8 @@ start key = ifM (inAnnex key) ) where go tmp = do - (opts,_,_) <- getOpt Permute rsyncSafeOptions <$> - maybe [] words <$> getField "RsyncOptions" + opts <- filterRsyncSafeOptions . maybe [] words + <$> getField "RsyncOptions" ifM (liftIO $ rsyncServerReceive (map Param opts) tmp) ( ifM (isJust <$> Fields.getField Fields.direct) ( directcheck tmp |