From f0cc42685e42a493c83eb85de02e61c54f69e4f0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 2 Dec 2011 19:21:56 -0400 Subject: fix display of dead repositories in status --- Logs/Trust.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Logs') 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 -- cgit v1.2.3