aboutsummaryrefslogtreecommitdiff
path: root/module/server
diff options
context:
space:
mode:
Diffstat (limited to 'module/server')
-rw-r--r--module/server/macro.scm3
1 files changed, 2 insertions, 1 deletions
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))