mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

filter out dead repos from the intro

Browse source
This commit is contained in:
Joey Hess 2012-07-30 00:31:33 -04:00
parent 74cf65a4dd
commit ec0493fa4d
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/Threads/WebApp.hs
View file

@ -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