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

close stream after Response.output

Browse source
This commit is contained in:
craff 2023-01-18 17:06:25 -10:00
parent 471810cf70
commit 095487ce85
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Tiny_httpd_server.ml
View file

@ -406,7 +406,12 @@ module Response = struct
begin match body with
| `String "" | `Void -> ()
| `String s -> output_string oc s;
| `Stream str -> Byte_stream.output_chunked oc str;
| `Stream str ->
try
Byte_stream.output_chunked oc str;
Byte_stream.close str
with
e -> Byte_stream.close str; raise e
end;
flush oc
end