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

fix: SSE requires no body

Browse source
This commit is contained in:
Simon Cruanes 2023-05-23 17:38:35 -04:00
parent 997f7aa868
commit 30a355da5a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Tiny_httpd_server.ml
View file

@ -353,9 +353,12 @@ module Response = struct
let headers = Headers.set "Transfer-Encoding" "chunked" headers in
{ code; headers; body=`Stream body; }
let make_void_force_ ?(headers=[]) ~code () : t =
{ code; headers; body=`Void; }
let make_void ?(headers=[]) ~code () : t =
let is_ok = code < 200 || code = 204 || code = 304 in
if is_ok then { code; headers; body=`Void; }
if is_ok then make_void_force_ ~headers ~code ()
else make_raw ~headers ~code "" (* invalid to not have a body *)
let make_string ?headers r = match r with
@ -716,7 +719,7 @@ let add_route_server_sent_handler ?accept self route f =
if not !resp_sent then (
resp_sent := true;
(* send 200 response now *)
let initial_resp = Response.make_void ~headers:!headers ~code:200 () in
let initial_resp = Response.make_void_force_ ~headers:!headers ~code:200 () in
resp initial_resp;
)
in