fix ws: missing flush

This commit is contained in:
Simon Cruanes 2024-03-12 10:39:38 -04:00
parent cced01e343
commit fe9596f4fe
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -136,6 +136,7 @@ module Writer = struct
write_header_ self; write_header_ self;
IO.Output.output self.oc self.buf 0 self.offset; IO.Output.output self.oc self.buf 0 self.offset;
IO.Output.flush self.oc;
self.offset <- 0 self.offset <- 0
let flush_ (self : t) = let flush_ (self : t) =