From aa1670d5a0973ef52f75d7771ccfc7f0f5807e1b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 12 Aug 2020 06:47:49 +0200 Subject: Slightly clean up server imports. --- module/server/macro.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/server') diff --git a/module/server/macro.scm b/module/server/macro.scm index b6983c7e..15bc0d0a 100644 --- a/module/server/macro.scm +++ b/module/server/macro.scm @@ -92,7 +92,8 @@ (args (cdr content-type))) (when (eq? type 'application/x-www-form-urlencoded) (let ((encoding (or (assoc-ref args 'encoding) "UTF-8"))) - (parse-query (bytevector->string body encoding) + (parse-query ((@ (ice-9 iconv) bytevector->string) + body encoding) encoding))))))))))) (case-lambda ((headers body new-state) (values headers body new-state)) ((headers body) (values headers body state)) -- cgit v1.2.3