S.Request
type header = {
command : string;
}
val v_header : command:string -> header
val write_header : t -> header -> unit Lwt.t
val read_header : t -> header Lwt.t