mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

webapp: Added UI to delete repositories. Closes: #689847

Browse source
This commit is contained in:
Joey Hess 2013-03-31 16:38:05 -04:00
parent e683df9536
commit c57baaaa30
12 changed files with 245 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Dead.hs
View file

@ -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