From c67ea40ecaa47d147eb23b2a30a2ec4a76d45401 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 4 Jun 2016 14:33:31 -0400 Subject: list: Do not include dead repositories. --- Command/List.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Command') diff --git a/Command/List.hs b/Command/List.hs index 786db7b79..2676b5d5d 100644 --- a/Command/List.hs +++ b/Command/List.hs @@ -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) -> (,,) -- cgit v1.2.3