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

git config remote.name.annex-sync can be used to control whether a remote gets synced.

Browse source
This commit is contained in:
Joey Hess 2012-10-11 18:39:21 -04:00
parent 1591245f88
commit 589d1711f2
4 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Sync.hs
View file

@ -26,6 +26,7 @@ import Git.Types (BlobType(..))
import qualified Types.Remote
import qualified Remote.Git
import Types.Key
import Config
import qualified Data.ByteString.Lazy as L
import Data.Hash.MD5
@ -71,7 +72,8 @@ syncRemotes rs = ifM (Annex.getState Annex.fast) ( nub <$> pickfast , wanted )
unwords (map Types.Remote.name s)
return l
available = filter (not . Remote.specialRemote)
<$> Remote.enabledRemoteList
<$> (filterM (repoSyncable . Types.Remote.repo)
=<< Remote.enabledRemoteList)
good = filterM $ Remote.Git.repoAvail . Types.Remote.repo
fastest = fromMaybe [] . headMaybe . Remote.byCost