guix/guix-cuirass
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git synced 2024-12-29 11:40:16 +01:00
Code Issues Releases Wiki Activity

http: Decode all URI arguments.

Browse source 
Fixes: <https://issues.guix.gnu.org/55024>.

* src/cuirass/http.scm (body->specification): Decode all arguments and not
only channel URL and build params.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Mathieu Othacehe 2022-04-26 10:17:35 +02:00
parent 1174185377
commit 1c45ae3c6b
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/cuirass/http.scm
View file

@ -381,7 +381,7 @@ into a specification record and return it."
(lambda (param params)
(match (string-split param #\=)
((key param)
(cons (cons (string->symbol key) param)
(cons (cons (string->symbol key) (uri-decode param))
params))))
'()
(string-split query #\&)))
@ -399,8 +399,7 @@ into a specification record and return it."
(let ((param (assq-ref params 'param-input)))
(and param
(not (string=? param ""))
(let ((param (string-split
(uri-decode param) #\,)))
(let ((param (string-split param #\,)))
(cond
((eq? build 'custom)
(map
@ -411,7 +410,7 @@ into a specification record and return it."
(channels (map (lambda (name url branch)
(channel
(name (string->symbol name))
(url (uri-decode url))
(url url)
(branch branch)))
(filter-field 'channel-name)
(filter-field 'channel-url)