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

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

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

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