list: Do not include dead repositories.
This commit is contained in:
parent
14ea28d787
commit
9996e04f41
2 changed files with 3 additions and 1 deletions
|
@ -56,7 +56,8 @@ getList o
|
|||
ts <- mapM (lookupTrust . uuid) rs
|
||||
hereu <- getUUID
|
||||
heretrust <- lookupTrust hereu
|
||||
return $ (hereu, "here", heretrust) : zip3 (map uuid rs) (map name rs) ts
|
||||
let l = (hereu, "here", heretrust) : zip3 (map uuid rs) (map name rs) ts
|
||||
return $ filter (\(_, _, t) -> t /= DeadTrusted) l
|
||||
getAllUUIDs = do
|
||||
rs <- M.toList <$> uuidMap
|
||||
rs3 <- forM rs $ \(u, n) -> (,,)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue