diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-02-25 15:20:53 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-02-25 15:20:53 +0100 |
| commit | 4df3337b56e4cd62b64a4a5c5557b9dffe1cc006 (patch) | |
| tree | ce1c40581697de39f4f4f6baaa1327fa35764f29 | |
| parent | c987a79ef7511d319e7b6a8dff24f76f165cc8be (diff) | |
request: Respect GUILE_AWS_DEBUG_ENDPOINT to ease debugging.
| -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) |