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 :