Include header x-amz-security-token in bucket-location request

xach · Jan 27, 2017 · 4f19c7e · 4f19c7e
1 parent 376d08b
commit 4f19c7e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/interface.lisp b/interface.lisp
@@ -90,6 +90,10 @@ constraint."
   (let* ((request (make-instance 'request
                                   :method :get
                                   :sub-resource "location"
+				  :extra-http-headers
+				  `(,(when (security-token *credentials*)
+				       (cons "x-amz-security-token"
+					     (security-token *credentials*))))
                                   :bucket bucket))
          (response (submit-request request))
          (location (location response)))