fix display of dead repositories in status

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