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

Fix query-parameters->string for multi-valued parameters

This commit is contained in:
Christopher Baines 2019-05-16 22:43:51 +01:00
parent 83012b101b
commit dfb1da3197
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -172,13 +172,14 @@
((key . ($ <invalid-query-parameter>))
'())
((key . value)
(list (simple-format #f "~A=~A"
key (value->text value))))
((key values ...)
(map (lambda (value)
(simple-format #f "~A=~A"
key (value->text value)))
values)))
(if (list? value)
(map (lambda (value)
(simple-format #f "~A=~A"
key (value->text value)))
value)
(list (simple-format
#f "~A=~A"
key (value->text value))))))
query-parameters))
"&"))