diff options
author | 2012-07-30 00:31:33 -0400 | |
---|---|---|
committer | 2012-07-30 00:31:33 -0400 | |
commit | ec0493fa4d45a8d8f6617c906727d653afb1c50e (patch) | |
tree | c98766f05056b068c899fc8377b8397f00cefa18 /Assistant/Threads/WebApp.hs | |
parent | 74cf65a4dd5f7a59844184a4ece3279adc97d3a7 (diff) |
filter out dead repos from the intro
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |