summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-31 16:38:05 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-31 16:38:05 -0400
commit150a05edaa5f23c512dd352124b8da2399ff0cff (patch)
tree30ce126cbc783d617706b233ccb8a8e2bbc4b5bb /Command
parentfb3912eb435de8b865a5b2e2fbcecbb4b51bea81 (diff)
webapp: Added UI to delete repositories. Closes: #689847
Diffstat (limited to 'Command')
-rw-r--r--Command/Dead.hs6
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