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

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

Browse source
This commit is contained in:
Joey Hess 2013-03-30 18:55:22 -04:00
parent 5ed67562f6
commit 553e9dc736
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/SendKey.hs
View file

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