feat(cohttp-async): add [close_finished] in [Connection] (#1067)

Signed-off-by: Łukasz Kurowski <[email protected]>
mirage · Jun 30, 2024 · b988f24 · b988f24
1 parent 63c665b
commit b988f24
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/cohttp-async/src/client.ml b/cohttp-async/src/client.ml
@@ -98,6 +98,7 @@ module Connection = struct
     Throttle.kill t;
     Throttle.cleaned t
 
+  let close_finished t = Throttle.cleaned t
   let is_closed t = Throttle.is_dead t
 
   let request ?(body = Body.empty) t req =

diff --git a/cohttp-async/src/client.mli b/cohttp-async/src/client.mli
@@ -37,6 +37,7 @@ module Connection : sig
     t Async_kernel.Deferred.t
 
   val close : t -> unit Async_kernel.Deferred.t
+  val close_finished : t -> unit Async_kernel.Deferred.t
   val is_closed : t -> bool
 
   val request :