From 4df3337b56e4cd62b64a4a5c5557b9dffe1cc006 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 25 Feb 2021 15:20:53 +0100
Subject: request: Respect GUILE_AWS_DEBUG_ENDPOINT to ease debugging.

---
 aws/request.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'aws')

diff --git a/aws/request.scm b/aws/request.scm
index 34e39cc..4090f00 100644
--- a/aws/request.scm
+++ b/aws/request.scm
@@ -190,7 +190,8 @@ already mentioned in the request headers."
                          "amazonaws.com")
                    "."))
     (define endpoint
-      (string-append "https://" host "/"))
+      (or (getenv "GUILE_AWS_DEBUG_ENDPOINT")
+          (string-append "https://" host "/")))
     (define json?
       (match (assoc-ref api-metadata 'protocol)
         ("json" #true)
-- 
cgit v1.2.3