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

dropping from web

Browse source
This commit is contained in:
Joey Hess 2012-11-29 17:01:07 -04:00
parent 67e82b1c3d
commit ea5d7292e6
4 changed files with 25 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Remote/Web.hs
View file

@ -72,9 +72,9 @@ uploadKey _ _ _ = do
return False
dropKey :: Key -> Annex Bool
dropKey _ = do
warning "removal from web not supported"
return False
dropKey k = do
mapM_ (setUrlMissing k) =<< getUrls k
return True
checkKey :: Key -> Annex (Either String Bool)
checkKey key = do