diff --git a/cohttp-async/src/client.ml b/cohttp-async/src/client.ml index ecc4f9553..b8f805bf6 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 c32991ac5..4c424e491 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 :