From fe9596f4fe38d324f80511515aa124f7a8f5b83b Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 12 Mar 2024 10:39:38 -0400
Subject: [PATCH] fix ws: missing flush

---
 src/ws/tiny_httpd_ws.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ws/tiny_httpd_ws.ml b/src/ws/tiny_httpd_ws.ml
index 3917ef0e..bf12ef2f 100644
--- a/src/ws/tiny_httpd_ws.ml
+++ b/src/ws/tiny_httpd_ws.ml
@@ -136,6 +136,7 @@ module Writer = struct
     write_header_ self;
 
     IO.Output.output self.oc self.buf 0 self.offset;
+    IO.Output.flush self.oc;
     self.offset <- 0
 
   let flush_ (self : t) =