From ee91e94c7b78cc65f2e7db11cc58d41d92faa038 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 15 Aug 2021 19:43:00 +0200
Subject: Fix encode-query-parameters.

Multiple parameters are now correctly joined by an ampersand.
Also noticed that the given parameters should use the regular ->string
for encoding strings.
---
 module/web/uri-query.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/web')

diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm
index efdd178a..9eff203f 100644
--- a/module/web/uri-query.scm
+++ b/module/web/uri-query.scm
@@ -10,5 +10,6 @@
           (format #f "~a=~a"
                   (car p)
                   (uri-encode (->quoted-string (cdr p)))))
-        parameters)))
+        parameters)
+   "&"))
 
-- 
cgit v1.2.3