From be6a8d172f18e227c34a875310ab9f94a396b862 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sun, 30 Jun 2024 13:49:47 +0100 Subject: [PATCH] refactor: make [Cohttp.Body.drain] private Signed-off-by: Rudi Grinberg --- cohttp-async/src/body.mli | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/cohttp-async/src/body.mli b/cohttp-async/src/body.mli index 0d362e0e2..d1fd79f08 100644 --- a/cohttp-async/src/body.mli +++ b/cohttp-async/src/body.mli @@ -5,8 +5,6 @@ type t = [ Cohttp.Body.t | `Pipe of string Pipe.Reader.t ] [@@deriving sexp_of] include Cohttp.S.Body with type t := t -val drain : t -> unit Deferred.t -val is_empty : t -> [ `True | `False | `Unknown ] val to_string : t -> string Deferred.t val to_string_list : t -> string list Deferred.t val to_pipe : t -> string Pipe.Reader.t @@ -14,6 +12,7 @@ val of_pipe : string Pipe.Reader.t -> t val map : t -> f:(string -> string) -> t val as_pipe : t -> f:(string Pipe.Reader.t -> string Pipe.Reader.t) -> t val to_form : t -> (string * string list) list Deferred.t +val is_empty : t -> [ `True | `False | `Unknown ] module Private : sig val write_body :