diff options
-rw-r--r-- | guix-data-service/web/query-parameters.scm | 14 |
1 files changed, 14 insertions, 0 deletions
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)) |