dead: Remove dead repository from all groups.

This is less expensive than having inallgroup weed out dead repositories.

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

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 <joeyh@debian.org>  Wed, 10 Oct 2012 12:59:25 -0400