From c5218e14ff7fe7817302a6c71d64c14389c33425 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 25 Feb 2021 15:19:20 +0100
Subject: request: Add request-query-string.

* aws/request.scm (request-query-string): New procedure.
---
 aws/request.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'aws')

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
-- 
cgit v1.2.3