diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-30 18:55:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-30 18:56:01 -0400 |
| commit | 883395c399a0996d825711c6d8f29aa49ed07a69 (patch) | |
| tree | fcbe2908946446d65c7bc862e761182ae5200f6d /Command/RecvKey.hs | |
| parent | 027a9fd1b75d07f7261f7a6054d2fa3c50e4ec61 (diff) | |
let's use words and unwords rather than split and intercalate " "
Diffstat (limited to 'Command/RecvKey.hs')
| -rw-r--r-- | Command/RecvKey.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs index c1c11a550..a1c6093e8 100644 --- a/Command/RecvKey.hs +++ b/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 |