request: Respect GUILE_AWS_DEBUG_ENDPOINT to ease debugging.
authorRicardo Wurmus <rekado@elephly.net>
Thu, 25 Feb 2021 14:20:53 +0000 (15:20 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Thu, 25 Feb 2021 14:20:53 +0000 (15:20 +0100)
aws/request.scm

index 34e39cc4d58edb5d6d09a2555bf97fdfd08d41b9..4090f009129bc3b91343c3c9fc1367c7804e621e 100644 (file)
@@ -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)