diff options
| -rw-r--r-- | aws/request.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |