diff options
Diffstat (limited to 'module/web/uri-query.scm')
| -rw-r--r-- | module/web/uri-query.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm index adf99803..e7cc627c 100644 --- a/module/web/uri-query.scm +++ b/module/web/uri-query.scm @@ -1,5 +1,4 @@ (define-module (web uri-query) - :use-module ((hnh util) :select (->quoted-string)) :use-module ((web uri) :select (uri-encode)) :export (encode-query-parameters) ) @@ -14,7 +13,7 @@ (map (lambda (p) (format #f "~a=~a" (car p) - (uri-encode (->quoted-string (cdr p))))) + (uri-encode (with-output-to-string (lambda () (write (cdr p))))))) parameters) "&")) |