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 /aws/base.scm | |
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 'aws/base.scm')
-rw-r--r-- | aws/base.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |