use trustExclude

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

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)