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

Extend the invalid parameter handling for more types

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
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 ((invalid-query-parameter? val)
. ,(with-output-to-string `((invalid
(lambda () . ,(with-output-to-string
(sxml->html (lambda ()
(invalid-query-parameter-message (sxml->html
val))))) (invalid-query-parameter-message
(value . ,(invalid-query-parameter-value val))) val)))))
val)))) (value . ,(invalid-query-parameter-value val))))
((list? val)
(list->vector val))
(else val)))))
query-parameters))))) query-parameters)))))
(else (else
(letpar& ((systems (letpar& ((systems