minor refactoring

This commit is contained in:
Joey Hess 2013-03-30 19:05:51 -04:00
parent 553e9dc736
commit acd6a150e5
3 changed files with 10 additions and 16 deletions

View file

@ -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