diff options
Diffstat (limited to 'Command/Dead.hs')
-rw-r--r-- | Command/Dead.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Command/Dead.hs b/Command/Dead.hs index f4b654ed9..58bb093e7 100644 --- a/Command/Dead.hs +++ b/Command/Dead.hs @@ -31,6 +31,10 @@ start ws = do perform :: UUID -> CommandPerform perform uuid = do + markDead uuid + next $ return True + +markDead :: UUID -> Annex () +markDead uuid = do trustSet uuid DeadTrusted groupSet uuid S.empty - next $ return True |