diff options
| -rw-r--r-- | Command/Status.hs | 1 | ||||
| -rw-r--r-- | Logs/Trust.hs | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index a47f21b91..0fefda1f6 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -58,6 +58,7 @@ fast_stats = , remote_list Trusted "trusted" , remote_list SemiTrusted "semitrusted" , remote_list UnTrusted "untrusted" + , remote_list DeadTrusted "dead" ] slow_stats :: [Stat] slow_stats = diff --git a/Logs/Trust.hs b/Logs/Trust.hs index f18f42511..196666a84 100644 --- a/Logs/Trust.hs +++ b/Logs/Trust.hs @@ -38,7 +38,8 @@ trustPartition level ls | level == SemiTrusted = do t <- trustGet Trusted u <- trustGet UnTrusted - let uncandidates = t ++ u + d <- trustGet DeadTrusted + let uncandidates = t ++ u ++ d return $ partition (`notElem` uncandidates) ls | otherwise = do candidates <- trustGet level |