diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-12 06:47:49 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-12 06:47:49 +0200 |
commit | aa1670d5a0973ef52f75d7771ccfc7f0f5807e1b (patch) | |
tree | c680c4f16fcc662a4cc0cbd5bb4cdb618dbb19c6 /module/server | |
parent | Merge branch 'master' into calchooser (diff) | |
download | calp-aa1670d5a0973ef52f75d7771ccfc7f0f5807e1b.tar.gz calp-aa1670d5a0973ef52f75d7771ccfc7f0f5807e1b.tar.xz |
Slightly clean up server imports.
Diffstat (limited to 'module/server')
-rw-r--r-- | module/server/macro.scm | 3 |
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)) |