From f44f833de3c74c8111fd87a0997441339db80a82 Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sun, 1 Oct 2023 00:07:24 +0200 Subject: requests: fix [] insertion in querystring --- neocities/requests.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'neocities/requests.scm') diff --git a/neocities/requests.scm b/neocities/requests.scm index 3f06a47..265ebcd 100644 --- a/neocities/requests.scm +++ b/neocities/requests.scm @@ -50,14 +50,14 @@ (string-join (map (lambda (x) (let ((key (car x)) - (value (cadr x))) - (if (list? value) + (value (cdr x))) + (if (= 1 (length value)) + (string-append (uri-encode key) "=" (uri-encode (car value))) (string-join (map (lambda (y) - (string-append (uri-encode key) "[]=" (uri-encode y))) + (string-append (uri-encode key) "=" (uri-encode y))) value) - "&") - (string-append (uri-encode key) "=" (uri-encode value))))) + "&")))) querystring) "&")) -- cgit v1.2.3