type 'a rd = < rd : unit.. > as 'atype 'a wr = < wr : unit.. > as 'atype 'a mode = | Rd : < rd : unit > mode| Wr : < wr : unit > mode| RdWr : < rd : unit ; wr : unit > mode
type +'a fiber = 'a Lwt.tval pp_error : error Fmt.tval map : t -> 'm rd fd -> pos:int64 -> int -> Bigstringaf.tval append : t -> 'm wr fd -> string -> unit fiber