guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Add #:required and #:multi-value support to parse-query-parameters

This commit is contained in:
Christopher Baines 2019-05-11 20:34:53 +01:00
parent bec838caf9
commit 3d004f8597
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
guix-data-service/web/query-parameters.scm
View File

@ -59,7 +59,8 @@
accepted-query-parameters)
(define request-query-parameters
(let ((query (uri-query (request-uri request))))
(if query
(if (and query
(not (string-null? query)))
(map (match-lambda
((name . value)
(cons (string->symbol name)
@ -75,6 +76,32 @@
((_ . "") #f)
((_ . value) (cons name
(processor value)))))
((name processor #:required)
(match (assq name request-query-parameters)
(#f (cons name
(make-invalid-query-parameter
#f "this value is required.")))
((_ . "") (cons name
(make-invalid-query-parameter
#f "this value is required.")))
((_ . value) (cons name
(processor value)))))
((name processor #:multi-value)
(match (filter-map
(match-lambda
((k . value)
(and
(eq? k name)
(match value
(#f #f)
("" #f)
(value (processor value))))))
request-query-parameters)
(() #f)
(x (cons name x))))
((name processor #:default default)
(match (assq name request-query-parameters)
(#f (cons name default))