From ccfda0a1b479f131e69e0158b4269dc98982b268 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 11 Oct 2012 18:39:21 -0400
Subject: git config remote.name.annex-sync can be used to control whether a
 remote gets synced.

---
 Command/Sync.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Command')

diff --git a/Command/Sync.hs b/Command/Sync.hs
index 11ea30a52..1795a6104 100644
--- a/Command/Sync.hs
+++ b/Command/Sync.hs
@@ -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
 
-- 
cgit v1.2.3