From abb54a503915259a5b89ee552142af129ac1a02b Mon Sep 17 00:00:00 2001
From: Elias Martenson <lokedhs@gmail.com>
Date: Wed, 20 Dec 2017 16:39:38 +0800
Subject: [PATCH] REGION-ENDPOINT should return the correct value for
 non-amazon providers

---
 interface.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interface.lisp b/interface.lisp
index 8f30965..1a68b75 100644
--- a/interface.lisp
+++ b/interface.lisp
@@ -108,7 +108,7 @@ constraint."
 
 (defun region-endpoint (region)
   (if (string= region "us-east-1")
-      "s3.amazonaws.com"
+      (or *s3-endpoint* "s3.amazonaws.com")
       (format nil "s3-~A.amazonaws.com" region)))
 
 (defun query-bucket (bucket &key prefix marker max-keys delimiter
-- 
2.11.4.GIT