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

list: Do not include dead repositories.

Browse source
This commit is contained in:
Joey Hess 2016-06-04 14:33:31 -04:00
parent 14ea28d787
commit 9996e04f41
Failed to extract signature
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG
View file

@ -17,6 +17,7 @@ git-annex (6.20160528) UNRELEASED; urgency=medium
branch checked out. branch checked out.
* remotedaemon: Fixed support for notifications of changes to gcrypt * remotedaemon: Fixed support for notifications of changes to gcrypt
remotes, which was never tested and didn't quite work before. 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 -- Joey Hess <id@joeyh.name> Fri, 27 May 2016 13:12:48 -0400

3
Command/List.hs
View file

@ -56,7 +56,8 @@ getList o
ts <- mapM (lookupTrust . uuid) rs ts <- mapM (lookupTrust . uuid) rs
hereu <- getUUID hereu <- getUUID
heretrust <- lookupTrust hereu 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 getAllUUIDs = do
rs <- M.toList <$> uuidMap rs <- M.toList <$> uuidMap
rs3 <- forM rs $ \(u, n) -> (,,) rs3 <- forM rs $ \(u, n) -> (,,)