Server_with_conduit (gluten-mirage.Gluten_mirage.Server_with

type flow = Conduit_mirage.Flow.flow

include Gluten_lwt.Server with type socket := Conduit_mirage.Flow.flow and type addr = unit

type addr = unit

val create_upgradable_connection_handler : read_buffer_size:int -> protocol:'t Gluten.runtime -> create_protocol:(('reqd -> unit) -> 't) -> request_handler:(addr -> 'reqd Gluten.Server.request_handler) -> addr -> Conduit_mirage.Flow.flow -> unit Lwt.t

val create_connection_handler : read_buffer_size:int -> protocol:'t Gluten.runtime -> 't -> addr -> Conduit_mirage.Flow.flow -> unit Lwt.t

type t = Conduit_mirage.Flow.flow -> unit Lwt.t

val connect : Conduit_mirage.t -> (Conduit_mirage.server -> t -> unit Lwt.t) Lwt.t