From 18a3a186e9cdb69ee503d961d8285a341d818c48 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Jan 2013 13:52:47 -0400 Subject: type based git config handling for remotes Still a couple of places that use git config ad-hoc, but this is most of it done. --- Assistant/DaemonStatus.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'Assistant/DaemonStatus.hs') diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index cb9133b2a..28383a4dd 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -17,7 +17,6 @@ import Logs.Trust import qualified Remote import qualified Types.Remote as Remote import qualified Git -import Config import Control.Concurrent.STM import System.Posix.Types @@ -48,7 +47,7 @@ modifyDaemonStatus a = do {- Returns a function that updates the lists of syncable remotes. -} calcSyncRemotes :: Annex (DaemonStatus -> DaemonStatus) calcSyncRemotes = do - rs <- filterM (repoSyncable . Remote.repo) =<< + rs <- filter (remoteAnnexSync . Remote.gitconfig) . concat . Remote.byCost <$> Remote.enabledRemoteList alive <- trustExclude DeadTrusted (map Remote.uuid rs) let good r = Remote.uuid r `elem` alive -- cgit v1.2.3