diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-02 22:18:49 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-05 16:40:59 +0200 |
| commit | 81ef7bf7988fc7ff30f87ac50f511b0b8a76d378 (patch) | |
| tree | acda87b8077e81be25e5efcab16f6a9eff9361a9 /neocities | |
| parent | 6b7245fb3858bee36184af851cac976613afa1aa (diff) | |
requests: fix query-string for arrays of values
Diffstat (limited to 'neocities')
| -rw-r--r-- | neocities/requests.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/neocities/requests.scm b/neocities/requests.scm index d0270c2..20d328d 100644 --- a/neocities/requests.scm +++ b/neocities/requests.scm @@ -51,13 +51,13 @@ (map (lambda (x) (let ((key (car x)) (value (cdr x))) - (if (= 1 (length value)) - (string-append (uri-encode key) "=" (uri-encode (car value))) + (if (list? value) (string-join (map (lambda (y) (string-append (uri-encode key) "=" (uri-encode y))) value) - "&")))) + "&") + (string-append (uri-encode key) "=" (uri-encode value))))) querystring) "&")) |