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

Add a function for making query parameters mutually exclusive

Browse source 
This allows building more complicated forms, where some of the query
parameters don't work together.
This commit is contained in:
Christopher Baines 2019-05-12 21:16:24 +01:00
parent 4a5f42ee52
commit b151d8bb78
1 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -36,6 +36,7 @@
any-invalid-query-parameters? any-invalid-query-parameters?
parse-query-parameters parse-query-parameters
guard-against-mutually-exclusive-query-parameters
query-parameters->string query-parameters->string
parse-datetime parse-datetime
@ -56,6 +57,37 @@
(value invalid-query-parameter-value) (value invalid-query-parameter-value)
(message invalid-query-parameter-message)) (message invalid-query-parameter-message))
(define (guard-against-mutually-exclusive-query-parameters
parsed-query-parameters
mutually-exclusive-groups)
(map (match-lambda
((name . value)
(if (invalid-query-parameter? value)
(cons name value)
(or
(any (lambda (group)
(if (memq name group)
(let ((other-names
(filter (lambda (other-name)
(and (not (eq? name other-name))
(memq other-name group)))
(map car parsed-query-parameters))))
(if (not (null? other-names))
(cons
name
(make-invalid-query-parameter
value
(string-append
"cannot be specified along with "
(string-join (map symbol->string
other-names)
", "))))
#f))
#f))
mutually-exclusive-groups)
(cons name value)))))
parsed-query-parameters))
(define (parse-query-parameters request (define (parse-query-parameters request
accepted-query-parameters) accepted-query-parameters)
(define request-query-parameters (define request-query-parameters