more S3 docs

This commit is contained in:
Joey Hess 2011-03-29 18:21:05 -04:00
parent d8154eaad3
commit 3adb48f46a
3 changed files with 15 additions and 3 deletions

View file

@ -71,7 +71,7 @@ genRemote r u c cst = this
name = Git.repoDescribe r,
storeKey = s3Store this,
retrieveKeyFile = s3Retrieve this,
removeKey = error "TODO removekey",
removeKey = s3Remove this,
hasKey = s3CheckPresent this,
hasKeyCheap = False,
config = c
@ -178,3 +178,12 @@ s3Retrieve r k f = s3Action r $ \(conn, bucket) -> do
Left e -> do
warning $ prettyReqError e
return False
s3Remove :: Remote Annex -> Key -> Annex Bool
s3Remove r k = s3Action r $ \(conn, bucket) -> do
res <- liftIO $ deleteObject conn $ bucketKey bucket k L.empty
case res of
Right _ -> return True
Left e -> do
warning $ prettyReqError e
return False