From 80993fa4381c1c6ee152872b016bb9b7e0e4f324 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 3 Dec 2010 17:37:22 +0100 Subject: [PATCH] http server impl reads body as a bytevector by default * module/web/server/http.scm (http-read): Read body as a bytevector by default. That way we punt encoding issues to the app. --- module/web/server/http.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/web/server/http.scm b/module/web/server/http.scm index 5d03f7639..46dcbb24a 100644 --- a/module/web/server/http.scm +++ b/module/web/server/http.scm @@ -110,7 +110,7 @@ (setvbuf port _IOFBF) (values port req - (read-request-body/latin-1 req)))))))))))) + (read-request-body/bytevector req)))))))))))) (define (keep-alive? response) (let ((v (response-version response)))