dropping from web

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

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