From f0a9929761c26e57f5c70b458de514e7499fe4ec Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sun, 28 Mar 2021 22:50:52 +0200
Subject: Add support for Route 53 API.

* aws/api/route53-2013-04-01.normal.json: New API file.
* Makefile.am (JSON_SOURCES): Add it.
* aws/base.scm (aws-operation): Pass xml-namespace to requester.
* aws/request.scm (request-xml-string): New procedure.
(make-operation->request): Accept xml-namespace key.
[host]: Use globalEndpoint if provided.
[request-parameters]: Use request-xml-string for rest-xml protocol.
* aws/serialize.scm (aws-value->sxml): New procedure.
* language/aws/spec.scm (compile-operation): Pass xml-namespace to
aws-operation.
---
 aws/base.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'aws/base.scm')

diff --git a/aws/base.scm b/aws/base.scm
index 676fdd1..626094f 100644
--- a/aws/base.scm
+++ b/aws/base.scm
@@ -143,6 +143,7 @@
                         input-constructor
                         input-type
                         output-type
+                        xml-namespace
                         http documentation)
   (let ((proc
          (lambda args
@@ -160,7 +161,10 @@
                      input)
                     (() #false))))
              ;; TODO: do something with the response!
-             (requester #:http http #:operation-name name #:input input*)))))
+             (requester #:http http
+                        #:xml-namespace xml-namespace
+                        #:operation-name name
+                        #:input input*)))))
     (set-procedure-property! proc 'documentation documentation)
     (set-procedure-property! proc 'name name)
     proc))
-- 
cgit v1.2.3