diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-06-04 14:33:31 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-06-04 14:33:31 -0400 |
| commit | c67ea40ecaa47d147eb23b2a30a2ec4a76d45401 (patch) | |
| tree | 7ff9921280c05cec1b8493960fff93b84b5e9247 | |
| parent | 06630dab54642aed92165ab3b53c85494e5bbf45 (diff) | |
list: Do not include dead repositories.
| -rw-r--r-- | CHANGELOG | 1 | ||||
| -rw-r--r-- | Command/List.hs | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -17,6 +17,7 @@ git-annex (6.20160528) UNRELEASED; urgency=medium branch checked out. * remotedaemon: Fixed support for notifications of changes to gcrypt remotes, which was never tested and didn't quite work before. + * list: Do not include dead repositories. -- Joey Hess <id@joeyh.name> Fri, 27 May 2016 13:12:48 -0400 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) -> (,,) |