type error = Paf_mirage.Make(Stack.TCP).TCP.errorval pp_error : error Fmt.tSourcetype nonrec write_error = Paf_mirage.Make(Stack.TCP).TCP.write_error Sourcetype flow = Paf_mirage.Make(Stack.TCP).TCP.flow Sourceval shutdown : flow -> [ `read | `read_write | `write ] -> unit Lwt.t