push sheeet
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s

This commit is contained in:
Dark Steveneq
2025-10-09 14:15:47 +02:00
commit 646b892680
49168 changed files with 5897842 additions and 0 deletions

View File

@@ -0,0 +1,20 @@
diff --git a/src/http/adapt.ml b/src/http/adapt.ml
index c6bd416..5b01e17 100644
--- a/src/http/adapt.ml
+++ b/src/http/adapt.ml
@@ -74,7 +74,7 @@ let forward_body
response
(Httpun.Body.Writer.write_string body)
(Httpun.Body.Writer.write_bigstring body)
- (Httpun.Body.Writer.flush body)
+ (fun f -> Httpun.Body.Writer.flush body (fun _ -> f ()))
(fun _code -> Httpun.Body.Writer.close body)
let forward_body_h2
@@ -85,5 +85,5 @@ let forward_body_h2
response
(H2.Body.Writer.write_string body)
(H2.Body.Writer.write_bigstring body)
- (H2.Body.Writer.flush body)
+ (fun f -> H2.Body.Writer.flush body (fun _ -> f ()))
(fun _code -> H2.Body.Writer.close body)