From b988f24f9dda1727e87047159c1a56ee8d7a38ba Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Kurowski?= Date: Mon, 1 Jul 2024 01:37:17 +0200 Subject: [PATCH] feat(cohttp-async): add [close_finished] in [Connection] (#1067) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Łukasz Kurowski --- cohttp-async/src/client.ml | 1 + cohttp-async/src/client.mli | 1 + 2 files changed, 2 insertions(+) diff --git a/cohttp-async/src/client.ml b/cohttp-async/src/client.ml index ecc4f95532..b8f805bf6d 100644 --- 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 index c32991ac50..4c424e491f 100644 --- 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 :