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

Merge remote-tracking branch 'origin/close_stream'

Browse source
This commit is contained in:
craff 2023-01-18 21:47:29 -10:00
commit 1caeff7840
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 begin match body with
| `String "" | `Void -> () | `String "" | `Void -> ()
| `String s -> output_string oc s; | `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; end;
flush oc flush oc
end end