cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support to multi-value fields with defaults

Browse source 
To the query parameters module.
This commit is contained in:
Christopher Baines 2019-05-16 22:27:47 +01:00
parent 26cdf5568f
commit d52f5b530f
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
guix-data-service/web/query-parameters.scm
View file

@ -135,6 +135,20 @@
(() #f) (() #f)
(x (cons name x)))) (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) ((name processor #:default default)
(match (assq name request-query-parameters) (match (assq name request-query-parameters)
(#f (cons name default)) (#f (cons name default))