summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
Diffstat (limited to 'Command')
-rw-r--r--Command/Dead.hs4
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