diff options
| -rw-r--r-- | Assistant/DaemonStatus.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index 11ea8676d..8146f977e 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -17,6 +17,8 @@ import Utility.NotificationBroadcaster import Logs.Transfer import Logs.Trust import qualified Remote +import qualified Types.Remote as Remote +import Config import Control.Concurrent.STM import System.Posix.Types @@ -86,10 +88,11 @@ modifyDaemonStatus dstatus a = do sendNotification $ changeNotifier s return b -{- Remotes ordered by cost, with dead ones thrown out. -} +{- Syncable remotes ordered by cost. -} calcKnownRemotes :: Annex [Remote] calcKnownRemotes = do - rs <- concat . Remote.byCost <$> Remote.enabledRemoteList + rs <- filterM (repoSyncable . Remote.repo) =<< + concat . Remote.byCost <$> Remote.enabledRemoteList alive <- snd <$> trustPartition DeadTrusted (map Remote.uuid rs) let good r = Remote.uuid r `elem` alive return $ filter good rs |