From 32f98237b6df1f39acf3d8daba3daf4be2a90435 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 2 Mar 2021 22:55:54 +0100
Subject: 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.
---
 aws/request.scm | 4 ++--
 1 file 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
-- 
cgit v1.2.3