diff --git a/src/fuseau/tiny_httpd_fuseau.ml b/src/fuseau/tiny_httpd_fuseau.ml index e975c727..597b6840 100644 --- a/src/fuseau/tiny_httpd_fuseau.ml +++ b/src/fuseau/tiny_httpd_fuseau.ml @@ -87,8 +87,7 @@ module Server = struct off := !off + n; i := !i + n; len := !len - n - done; - maybe_flush () + done in { output; output_char; flush; close }