From fb1b1f9975ae4b5d23670d7d4d45f16fbe728296 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Thu, 3 Mar 2022 15:20:14 -0500 Subject: [PATCH] fix bug in SSE --- src/Tiny_httpd.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml index 0acf18fc..94000ddf 100644 --- a/src/Tiny_httpd.ml +++ b/src/Tiny_httpd.ml @@ -981,7 +981,7 @@ let add_route_server_sent_handler ?accept self route f = let send_event ?event ?id ?retry ~data () : unit = send_response_idempotent_(); - _opt_iter event ~f:(fun e -> Printf.fprintf oc "data: %s\n" e); + _opt_iter event ~f:(fun e -> Printf.fprintf oc "event: %s\n" e); _opt_iter id ~f:(fun e -> Printf.fprintf oc "id: %s\n" e); _opt_iter retry ~f:(fun e -> Printf.fprintf oc "retry: %s\n" e); let l = String.split_on_char '\n' data in