From ec0493fa4d45a8d8f6617c906727d653afb1c50e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 30 Jul 2012 00:31:33 -0400
Subject: filter out dead repos from the intro

---
 Assistant/Threads/WebApp.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Assistant')

diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs
index 40f8300e5..7ad40c307 100644
--- a/Assistant/Threads/WebApp.hs
+++ b/Assistant/Threads/WebApp.hs
@@ -27,6 +27,7 @@ import Utility.DataUnits
 import Types.Key
 import qualified Remote
 import Logs.Web (webUUID)
+import Logs.Trust
 import Annex.UUID (getUUID)
 
 import Yesod
@@ -173,7 +174,8 @@ introDisplay ident = do
 	remotelist <- liftIO $ runThreadState (threadState webapp) $ do
 		u <- getUUID
 		rs <- map Remote.uuid <$> Remote.remoteList
-		Remote.prettyListUUIDs $ filter (/= webUUID) $ nub $ u:rs
+		rs' <- snd <$> trustPartition DeadTrusted rs
+		Remote.prettyListUUIDs $ filter (/= webUUID) $ nub $ u:rs'
 	let n = length remotelist
 	let numrepos = show n
 	let notenough = n < 2
-- 
cgit v1.2.3