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

use trustExclude

Browse source
This commit is contained in:
Joey Hess 2012-11-11 00:26:29 -04:00
parent ec337baaee
commit 6a0756d2fb
4 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/DaemonStatus.hs
View file

@ -46,7 +46,7 @@ calcSyncRemotes :: Annex [Remote]
calcSyncRemotes = do
rs <- filterM (repoSyncable . Remote.repo) =<<
concat . Remote.byCost <$> Remote.enabledRemoteList
alive <- snd <$> trustPartition DeadTrusted (map Remote.uuid rs)
alive <- trustExclude DeadTrusted (map Remote.uuid rs)
let good r = Remote.uuid r `elem` alive
return $ filter good rs