summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2021-03-02 22:55:54 +0100
committerRicardo Wurmus <rekado@elephly.net>2021-03-02 22:56:37 +0100
commit32f98237b6df1f39acf3d8daba3daf4be2a90435 (patch)
treecd34a9e53d15b43067e751017dcd3759ba3a8911
parentde5f76a0cf4c5d122761320eb934d1dc89db22a7 (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.scm4
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