diff options
| -rw-r--r-- | aws/request.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/aws/request.scm b/aws/request.scm index 4090f00..9b36d5d 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -157,12 +157,16 @@ which can easily be converted to JSON." (list->vector (map aws-value->scm l))) (x x))))) +(define (input-arguments->scm input) + "Return the arguments of the INPUT value as an alist. Drop the +operation name." + (match (aws-value->scm input) + (((op-name . params)) params))) + (define (request-json-string input) "Return a request JSON block. Drop the operation name as it is already mentioned in the request headers." - (match (aws-value->scm input) - (((op-name . params)) - (scm->json-string params)))) + (scm->json-string (input-arguments->scm input))) (define* (make-operation->request api-metadata) "Return a procedure that accepts an operation and returns an HTTP request." |