From 4f19c7ed05bf01777ec6d604a5d45322ba7faf6e Mon Sep 17 00:00:00 2001
From: Wojciech Gac <wojciech.s.gac@gmail.com>
Date: Fri, 27 Jan 2017 21:08:28 +0100
Subject: [PATCH] Include header x-amz-security-token in bucket-location
 request

---
 interface.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/interface.lisp b/interface.lisp
index 8c55433..8f30965 100644
--- 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)))
-- 
2.11.4.GIT