From 94e321ec383426c44ac9dd6abc7739f34559133e Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 11 May 2019 20:36:18 +0100
Subject: [PATCH] Add query-parameters->string

---
 guix-data-service/web/query-parameters.scm | 26 ++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm
index 45353b9..3140238 100644
--- a/guix-data-service/web/query-parameters.scm
+++ b/guix-data-service/web/query-parameters.scm
@@ -36,6 +36,7 @@
             any-invalid-query-parameters?
 
             parse-query-parameters
+            query-parameters->string
 
             parse-datetime
             parse-result-limit))
@@ -110,6 +111,31 @@
                            (processor value))))))
    accepted-query-parameters))
 
+(define (query-parameters->string query-parameters)
+  (define (value->text value)
+    (match value
+      (#f "")
+      ((? date? date)
+       (date->string date "~1 ~3"))
+      (other other)))
+
+  (string-join
+   (concatenate
+    (map
+     (match-lambda
+       ((key . ($ <invalid-query-parameter>))
+        '())
+       ((key . value)
+        (list (simple-format #f "~A=~A"
+                             key (value->text value))))
+       ((key values ...)
+        (map (lambda (value)
+               (simple-format #f "~A=~A"
+                              key (value->text value)))
+             values)))
+     query-parameters))
+   "&"))
+
 (define (parse-datetime s)
   (catch
     'misc-error