diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 19:22:57 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 19:22:57 +0200 |
| commit | 5b8c3a4af483deab668af3aff12f6f3d19556841 (patch) | |
| tree | dc4ac5d4d3f20e1886361cddcadcaf032907f399 /module/web | |
| parent | Split module/server into stuff. (diff) | |
| download | calp-5b8c3a4af483deab668af3aff12f6f3d19556841.tar.gz calp-5b8c3a4af483deab668af3aff12f6f3d19556841.tar.xz | |
fixes.
Diffstat (limited to 'module/web')
| -rw-r--r-- | module/web/http/make-routes.scm (renamed from module/web/http/macro.scm) | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/module/web/http/macro.scm b/module/web/http/make-routes.scm index a0113f46..c725513d 100644 --- a/module/web/http/macro.scm +++ b/module/web/http/make-routes.scm @@ -89,7 +89,7 @@ (else (lambda* _ (return (build-response #:code 404) "404 Not Fonud")))) (append - (parse-query r:query) + ((@ (web query) parse-query) r:query) (let ((content-type (assoc-ref r:headers 'content-type))) (when content-type @@ -97,9 +97,10 @@ (args (cdr content-type))) (when (eq? type 'application/x-www-form-urlencoded) (let ((encoding (or (assoc-ref args 'encoding) "UTF-8"))) - (parse-query ((@ (ice-9 iconv) bytevector->string) - body encoding) - encoding))))))))))) + ((@ (web query) 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)) ((headers) (values headers "" state)))))))) |