From 81ef7bf7988fc7ff30f87ac50f511b0b8a76d378 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 2 Oct 2023 22:18:49 +0200 Subject: requests: fix query-string for arrays of values --- neocities/requests.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'neocities') 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) "&")) -- cgit v1.2.3