summaryrefslogtreecommitdiff
path: root/Command/List.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-06-04 14:33:31 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-06-04 14:33:31 -0400
commitc67ea40ecaa47d147eb23b2a30a2ec4a76d45401 (patch)
tree7ff9921280c05cec1b8493960fff93b84b5e9247 /Command/List.hs
parent06630dab54642aed92165ab3b53c85494e5bbf45 (diff)
list: Do not include dead repositories.
Diffstat (limited to 'Command/List.hs')
-rw-r--r--Command/List.hs3
1 files changed, 2 insertions, 1 deletions
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) -> (,,)