diff options
| -rw-r--r-- | aws/request.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/aws/request.scm b/aws/request.scm index 7ccb6c6..45e725a 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -125,6 +125,15 @@ ".") thing)))) +(define (request-query-string operation-name api-version input) + "Return a request query string." + (string-join (cons* (format #false "Action=~a" operation-name) + (format #false "Version=~a" api-version) + (if input + (serialize-aws-value input) + '())) + "&")) + (define* (make-operation->request api-metadata) "Return a procedure that accepts an operation and returns an HTTP request." (define endpoint-prefix |