From f0a9929761c26e57f5c70b458de514e7499fe4ec Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus 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. --- language/aws/spec.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'language/aws') diff --git a/language/aws/spec.scm b/language/aws/spec.scm index f271d27..d41220b 100644 --- a/language/aws/spec.scm +++ b/language/aws/spec.scm @@ -212,6 +212,10 @@ if this is not a primitive data type." ',(and=> (assoc-ref spec "output") (lambda (output) (and=> (assoc-ref output "shape") string->symbol))) + #:xml-namespace + ',(and=> (assoc-ref spec "input") + (lambda (input) + (assoc-ref input "xmlNamespace"))) #:http ;; This includes things like "method", "requestUri", and "responseCode" ',(assoc-ref spec "http") -- cgit v1.2.3