S.Response
type header = {
status : int;
}
val v_header : status:int -> header
val write_header : t -> header -> unit Lwt.t
val read_header : t -> header Lwt.t
val is_error : header -> bool
val get_error : t -> header -> string option Lwt.t