Add delete-object to S3 vocab

[factor.git] / extra / s3 / s3.factor

diff --git a/extra/s3/s3.factor b/extra/s3/s3.factor
index 24eae2cd89b955e34fb03c31860686dd18428c13..faeb8df2ecb6217b474945c9096a3cca3f62d4ad 100644 (file)
--- a/extra/s3/s3.factor
+++ b/extra/s3/s3.factor
@@ -137,6 +137,10 @@ TUPLE: key name last-modified size ;
     sign-http-request 
     http-request 2drop ;
 
+: delete-object ( bucket key -- )
+    "/" prepend H{ } clone "DELETE" <s3-request>
+    dup s3-url <delete-request> sign-http-request http-request 2drop ;
+
 ! "testbucket" create-bucket
 ! "testbucket" delete-bucket
 ! buckets