diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-03-02 22:55:54 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-03-02 22:56:37 +0100 |
| commit | 32f98237b6df1f39acf3d8daba3daf4be2a90435 (patch) | |
| tree | cd34a9e53d15b43067e751017dcd3759ba3a8911 | |
| parent | de5f76a0cf4c5d122761320eb934d1dc89db22a7 (diff) | |
aws/request: make-operation->request: Send request to full URI.
* aws/request.scm (make-operation->request): Send HTTP request to full
URI, not just the endpoint domain.
| -rw-r--r-- | aws/request.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/aws/request.scm b/aws/request.scm index 95dcfd1..8ecb543 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -213,7 +213,7 @@ corresponding value in INPUT." ".")) (define endpoint (or (getenv "GUILE_AWS_DEBUG_ENDPOINT") - (string-append "https://" host "/"))) + (string-append "https://" host))) (define json? (match (assoc-ref api-metadata 'protocol) ("json" #true) @@ -327,7 +327,7 @@ corresponding value in INPUT." (call-with-values (lambda () - (http-request endpoint + (http-request (string-append endpoint canonical-uri) #:method (string->symbol method) #:body (match method |