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

refactor

Browse source
This commit is contained in:
Joey Hess 2015-08-17 10:42:14 -04:00
parent 2ff22a383a
commit 1cd3b7ddf0
7 changed files with 21 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Rsync.hs
View file

@ -27,6 +27,7 @@ import Annex.Content
import Annex.UUID
import Annex.Ssh
import Remote.Helper.Special
import Remote.Helper.Messages
import Remote.Rsync.RsyncUrl
import Crypto
import Utility.Rsync
@ -222,7 +223,7 @@ remove o k = do
checkKey :: Git.Repo -> RsyncOpts -> CheckPresent
checkKey r o k = do
showAction $ "checking " ++ Git.repoDescribe r
showChecking r
-- note: Does not currently differentiate between rsync failing
-- to connect, and the file not being present.
untilTrue (rsyncUrls o k) $ \u ->