simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

wip: zlib

Browse source
This commit is contained in:
Simon Cruanes 2019-11-18 18:42:43 -06:00
parent c2fb67615d
commit 8131c07425
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/zlib/Tiny_httpd_zlib.ml
View file

@ -60,7 +60,7 @@ let encode_deflate_stream_ (is:S.byte_stream) : S.byte_stream =
BS.close is
in
let bs_consume n =
write_offset := n + !write_offset
write_offset := n + !write_offset
in
let bs_fill_buf () =
S._debug (fun k->k "deflate.fill buf");
@ -127,9 +127,6 @@ let cb_decode_compressed_stream (req:unit S.Request.t) : _ option =
let req' = S.Request.set_header req "Transfer-Encoding" "chunked" in
Some (req', decode_gzip_stream_)
*)
| Some "deflate" ->
let req' = S.Request.set_header req "Transfer-Encoding" "chunked" in
Some (req', mk_decode_deflate_stream_ ())
| Some s when has_deflate s ->
begin match Scanf.sscanf s "deflate; %s" (fun s -> s) with
| tr' ->