Fix up request for RESTORE-OBJECT.

xach · Dec 19, 2012 · 071307a · 071307a
1 parent d8a4242
commit 071307a
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lifecycle.lisp b/lifecycle.lisp
@@ -239,7 +239,11 @@ configuration is deleted with DELETE-BUCKET-LIFECYCLE."
   (let* ((content (restore-request-document days))
          (md5 (vector-md5/b64 content)))
     (submit-request (make-instance 'request
+                                   :method :post
                                    :content-md5 md5
                                    :sub-resource "restore"
                                    :bucket bucket
-                                   :key key))))
+                                   :key key
+                                   :content content))))
+
+