From 071307a13d6b2db13412ef35492a5174255ca833 Mon Sep 17 00:00:00 2001
From: Zach Beane <xach@xach.com>
Date: Tue, 18 Dec 2012 21:33:01 -0500
Subject: [PATCH] Fix up request for RESTORE-OBJECT.

---
 lifecycle.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lifecycle.lisp b/lifecycle.lisp
index 289ece3..949ee1e 100644
--- 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))))
+
+