 
 (defn readable-s3-url
   [{:aws/keys [credentials-provider] region :aws-region :as config} expires-seconds path]
-  (let [[api-key _] (credentials-provider)
+  (let [[api-key _ ?security-token] (credentials-provider)
         utc-now (aws/utc-now)
         query-str (str "X-Amz-Algorithm=AWS4-HMAC-SHA256"
                        "&X-Amz-Credential=" api-key "/" (.format utc-now aws/basic-date-format) "/" region "/s3/aws4_request"

                                    :request req
                                    :aws-api-secret api-secret
                                    :aws-api-key api-key
                                    :aws-region region})))))

(defn delete-file!
  [config path]

    (str "https://" (s3-host config)
         "/" path
         "?" query-str
         "&X-Amz-Signature=" (get-signature config utc-now path query-str)
         (when ?security-token
           (str "&X-Amz-Security-Token=" ?security-token)))))

(defn- make-request
  [{:aws/keys [credentials-provider] region :aws-region bucket :aws-bucket :as config} {:keys [body method path] :as request}]
  (let [[api-key api-secret ?session-token] (credentials-provider)
        utc-now (aws/utc-now)
        req (update request :headers
                    assoc
