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