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

Extend the invalid parameter handling for more types

Browse source
This commit is contained in:
Christopher Baines 2023-05-22 17:34:39 +01:00
parent 5f21458a8f
commit 68850065d7
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/compare/controller.scm
View file

@ -657,15 +657,18 @@
((name . val) ((name . val)
(cons (cons
name name
(if (invalid-query-parameter? val) (cond
((invalid-query-parameter? val)
`((invalid `((invalid
. ,(with-output-to-string . ,(with-output-to-string
(lambda () (lambda ()
(sxml->html (sxml->html
(invalid-query-parameter-message (invalid-query-parameter-message
val))))) val)))))
(value . ,(invalid-query-parameter-value val))) (value . ,(invalid-query-parameter-value val))))
val)))) ((list? val)
(list->vector val))
(else val)))))
query-parameters))))) query-parameters)))))
(else (else
(letpar& ((systems (letpar& ((systems