From d52f5b530f079ec7d2efbab81ddf31eca90b584f Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 16 May 2019 22:27:47 +0100
Subject: [PATCH] Add support to multi-value fields with defaults

To the query parameters module.
---
 guix-data-service/web/query-parameters.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm
index 66edb64..7445409 100644
--- a/guix-data-service/web/query-parameters.scm
+++ b/guix-data-service/web/query-parameters.scm
@@ -135,6 +135,20 @@
         (() #f)
         (x (cons name x))))
 
+     ((name processor #:multi-value #:default default)
+      (match (filter-map
+              (match-lambda
+                ((k . value)
+                 (and
+                  (eq? k name)
+                  (match value
+                    (#f #f)
+                    ("" #f)
+                    (value (processor value))))))
+              request-query-parameters)
+        (() (cons name default))
+        (x (cons name x))))
+
      ((name processor #:default default)
       (match (assq name request-query-parameters)
         (#f (cons name default))