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