fix display of dead repositories in status
This commit is contained in:
parent
c22f43d6c2
commit
f0cc42685e
2 changed files with 3 additions and 1 deletions
|
@ -38,7 +38,8 @@ trustPartition level ls
|
|||
| level == SemiTrusted = do
|
||||
t <- trustGet Trusted
|
||||
u <- trustGet UnTrusted
|
||||
let uncandidates = t ++ u
|
||||
d <- trustGet DeadTrusted
|
||||
let uncandidates = t ++ u ++ d
|
||||
return $ partition (`notElem` uncandidates) ls
|
||||
| otherwise = do
|
||||
candidates <- trustGet level
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue