From 7d6bea416ac6ef0abd900fdb2b941c79168cbb48 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 10 Oct 2012 15:39:13 -0400 Subject: dead: Remove dead repository from all groups. This is less expensive than having inallgroup weed out dead repositories. --- Command/Dead.hs | 4 ++++ debian/changelog | 1 + 2 files changed, 5 insertions(+) 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 diff --git a/debian/changelog b/debian/changelog index c0352bb78..73e33ea8d 100644 --- a/debian/changelog +++ b/debian/changelog @@ -3,6 +3,7 @@ git-annex (3.20121010) UNRELEASED; urgency=low * Renamed --ingroup to --inallgroup. * Standard groups changed to client, transfer, archive, and backup. Each of these has its own standard preferred content setting. + * dead: Remove dead repository from all groups. -- Joey Hess Wed, 10 Oct 2012 12:59:25 -0400 -- cgit v1.2.3