diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-03-28 22:50:52 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-03-28 22:50:52 +0200 |
| commit | f0a9929761c26e57f5c70b458de514e7499fe4ec (patch) | |
| tree | 5937a1cba40d34ef18d9f3503d0bbaff850d4af6 /language | |
| parent | fffdbcbb6b0cded52c9e33bec63ea2c4ce1a928c (diff) | |
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.
Diffstat (limited to 'language')
| -rw-r--r-- | language/aws/spec.scm | 4 |
1 files changed, 4 insertions, 0 deletions
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") |