Add query-parameters->string

1 files changed, 26 insertions, 0 deletions

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