Tweak streaming json
Don't set the encoding, this should be handled by knots, and drop the block size as the previous value seemed excessive.
This commit is contained in:
parent
9e3cfabe77
commit
131967dc39
1 changed files with 1 additions and 2 deletions
|
|
@ -168,8 +168,7 @@
|
||||||
(vary . (accept)))))
|
(vary . (accept)))))
|
||||||
(if stream?
|
(if stream?
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
(set-port-encoding! port "utf-8")
|
(setvbuf port 'block (expt 2 16))
|
||||||
(setvbuf port 'block (expt 2 20))
|
|
||||||
(scm->json json port))
|
(scm->json json port))
|
||||||
(call-with-encoded-output-string
|
(call-with-encoded-output-string
|
||||||
"utf-8"
|
"utf-8"
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue