mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

http server impl reads body as a bytevector by default

Browse source 
* module/web/server/http.scm (http-read): Read body as a bytevector by
  default. That way we punt encoding issues to the app.
This commit is contained in:
Andy Wingo 2010-12-03 17:37:22 +01:00
parent 35b97af9d6
commit 80993fa438
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/web/server/http.scm
View file

@ -110,7 +110,7 @@
(setvbuf port _IOFBF) (setvbuf port _IOFBF)
(values port (values port
req req
(read-request-body/latin-1 req)))))))))))) (read-request-body/bytevector req))))))))))))
(define (keep-alive? response) (define (keep-alive? response)
(let ((v (response-version response))) (let ((v (response-version response)))