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

4
Assistant/WebApp/Configurators.hs
View file

@ -127,8 +127,8 @@ repoList onlycloud onlyconfigured includehere
rest = runAnnex [] $ do
m <- readRemoteLog
unconfigured <- map snd . catMaybes . filter wantedremote
. map (findinfo m) . snd
<$> (trustPartition DeadTrusted $ M.keys m)
. map (findinfo m)
<$> (trustExclude DeadTrusted $ M.keys m)
unsyncable <- map Remote.uuid . filter wantedrepo <$>
(filterM (\r -> not <$> repoSyncable (Remote.repo r))
=<< Remote.enabledRemoteList)