pyrox.dev
1diff --git a/src/http/adapt.ml b/src/http/adapt.ml
2index c6bd416..5b01e17 100644
3--- a/src/http/adapt.ml
4+++ b/src/http/adapt.ml
5@@ -74,7 +74,7 @@ let forward_body
6 response
7 (Httpun.Body.Writer.write_string body)
8 (Httpun.Body.Writer.write_bigstring body)
9- (Httpun.Body.Writer.flush body)
10+ (fun f -> Httpun.Body.Writer.flush body (fun _ -> f ()))
11 (fun _code -> Httpun.Body.Writer.close body)
12
13 let forward_body_h2
14@@ -85,5 +85,5 @@ let forward_body_h2
15 response
16 (H2.Body.Writer.write_string body)
17 (H2.Body.Writer.write_bigstring body)
18- (H2.Body.Writer.flush body)
19+ (fun f -> H2.Body.Writer.flush body (fun _ -> f ()))
20 (fun _code -> H2.Body.Writer.close body)