Xs_server.Server
module T : TRANSPORT
module PS : sig ... end
val handle_connection : T.channel -> unit Lwt.t
val serve_forever : unit -> 'a Lwt.t