From_input.I
include S.ASYNC
type 'a t
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val fail : exn -> 'a t
val return : 'a -> 'a t
type fd
val read : fd -> Cstruct.t -> unit t
val skip_to : fd -> int64 -> unit t