diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-30 00:31:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-30 00:31:33 -0400 |
| commit | ec0493fa4d45a8d8f6617c906727d653afb1c50e (patch) | |
| tree | c98766f05056b068c899fc8377b8397f00cefa18 /Assistant | |
| parent | 74cf65a4dd5f7a59844184a4ece3279adc97d3a7 (diff) | |
filter out dead repos from the intro
Diffstat (limited to 'Assistant')
| -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 |