diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-10 15:39:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-10 15:39:13 -0400 |
| commit | 7d6bea416ac6ef0abd900fdb2b941c79168cbb48 (patch) | |
| tree | f588f1b8abaffc9a39aead841243ff742504fce8 /Command/Dead.hs | |
| parent | da68a5b0942327096adfd63378c47c823e873178 (diff) | |
dead: Remove dead repository from all groups.
This is less expensive than having inallgroup weed out dead repositories.
Diffstat (limited to 'Command/Dead.hs')
| -rw-r--r-- | Command/Dead.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/Dead.hs b/Command/Dead.hs index 192551e20..34595769f 100644 --- a/Command/Dead.hs +++ b/Command/Dead.hs @@ -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 |