Server (conduit-lwt-unix.Conduit_lwt_unix

val default_ctx : Ssl.context

val init : 
  ?ctx:Ssl.context ->
  ?backlog:int ->
  ?password:(bool -> string) ->
  certfile:string ->
  keyfile:string ->
  ?stop:unit Lwt.t ->
  ?timeout:int ->
  Lwt_unix.sockaddr ->
  (Lwt_unix.sockaddr ->
    Lwt_unix.file_descr ->
    Lwt_io.input_channel ->
    Lwt_io.output_channel ->
    unit Lwt.t) ->
  unit Lwt.t