dead: Remove dead repository from all groups.
This is less expensive than having inallgroup weed out dead repositories.
This commit is contained in:
parent
9da7dd8874
commit
bf72760af2
2 changed files with 5 additions and 0 deletions
|
@ -11,6 +11,9 @@ import Common.Annex
|
|||
import Command
|
||||
import qualified Remote
|
||||
import Logs.Trust
|
||||
import Logs.Group
|
||||
|
||||
import qualified Data.Set as S
|
||||
|
||||
def :: [Command]
|
||||
def = [command "dead" (paramRepeating paramRemote) seek
|
||||
|
@ -29,4 +32,5 @@ start ws = do
|
|||
perform :: UUID -> CommandPerform
|
||||
perform uuid = do
|
||||
trustSet uuid DeadTrusted
|
||||
groupSet uuid S.empty
|
||||
next $ return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue