url: fix query param separators in url/literal->string

Author: Bogdanp

http-easy-lib/http-easy/private/url.rkt

@@ -108,7 +108,9 @@
         (loop (cdr path-components)))))
   (unless (null? query)
     (write-char #\? out)
-    (for ([pair (in-list query)])
+    (for ([(pair idx) (in-indexed (in-list query))])
+      (unless (zero? idx)
+        (write-char #\& out))
       (match-define (cons (app symbol->string name) value) pair)
       (write-string (maybe-percent-encode name form-urlencoded-encode) out)
       (when value

http-easy-lib/info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define license 'BSD-3-Clause)
-(define version "0.8")
+(define version "0.8.1")
 (define collection "net")
 (define deps
   '(["base" #:version "8.1.0.4"]

http-easy-test/net/http-easy/private/url.rkt

@@ -66,6 +66,7 @@
           ("http://example.com/a/b/c" . "http://example.com/a/b/c")
           ("http://example.com/a%2Bb.mp3" . "http://example.com/a%2Bb.mp3")
           ("http://example.com/a%2Bb.mp3?c=d+e" . "http://example.com/a%2Bb.mp3?c=d%2Be")
+          ("http://example.com/a%2Bb.mp3?c=d+e&f&g=h" . "http://example.com/a%2Bb.mp3?c=d%2Be&f&g=h")
           ("a/b/c" . "a/b/c")
           ("/a/b/c" . "/a/b/c")
           ("/a;b;c" . "/a;b;c")))