diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-31 16:38:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-31 16:38:05 -0400 |
| commit | 150a05edaa5f23c512dd352124b8da2399ff0cff (patch) | |
| tree | 30ce126cbc783d617706b233ccb8a8e2bbc4b5bb /Command/Dead.hs | |
| parent | fb3912eb435de8b865a5b2e2fbcecbb4b51bea81 (diff) | |
webapp: Added UI to delete repositories. Closes: #689847
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 |