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

fix display of dead repositories in status

Browse source
This commit is contained in:
Joey Hess 2011-12-02 19:21:56 -04:00
parent c22f43d6c2
commit f0cc42685e
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Command/Status.hs
View file

@ -58,6 +58,7 @@ fast_stats =
, remote_list Trusted "trusted" , remote_list Trusted "trusted"
, remote_list SemiTrusted "semitrusted" , remote_list SemiTrusted "semitrusted"
, remote_list UnTrusted "untrusted" , remote_list UnTrusted "untrusted"
, remote_list DeadTrusted "dead"
] ]
slow_stats :: [Stat] slow_stats :: [Stat]
slow_stats = slow_stats =

3
Logs/Trust.hs
View file

@ -38,7 +38,8 @@ trustPartition level ls
| level == SemiTrusted = do | level == SemiTrusted = do
t <- trustGet Trusted t <- trustGet Trusted
u <- trustGet UnTrusted u <- trustGet UnTrusted
let uncandidates = t ++ u d <- trustGet DeadTrusted
let uncandidates = t ++ u ++ d
return $ partition (`notElem` uncandidates) ls return $ partition (`notElem` uncandidates) ls
| otherwise = do | otherwise = do
candidates <- trustGet level candidates <- trustGet level