Source file `conduit_lwt_tls.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# 1 "src/conduit-lwt-unix/conduit_lwt_tls.dummy.ml"
module X509 = struct
  let private_of_pems ~cert:_ ~priv_key:_ = Lwt.fail_with "Tls not available"

  type authenticator = unit

  let default_authenticator = lazy ()
end

module Client = struct
  let connect ?src:_ ?certificates:_ ~authenticator:_ _host _sa =
    Lwt.fail_with "Tls not available"
end

module Server = struct
  let init' ?backlog:_ ?stop:_ ?timeout:_ _tls _sa _callback =
    Lwt.fail_with "Tls not available"

  let init ?backlog:_ ~certfile:_ ~keyfile:_ ?stop:_ ?timeout:_ _sa _callback =
    Lwt.fail_with "Tls not available"
end

let available = false