2018-10-23 22:13:47 +00:00
|
|
|
(* (c) 2017, 2018 Hannes Mehnert, all rights reserved *)
|
|
|
|
|
|
2018-10-23 22:10:08 +00:00
|
|
|
val read_tls : Tls_lwt.Unix.t ->
|
|
|
|
|
(Vmm_commands.wire, [> `Eof | `Exception | `Toomuch ]) result Lwt.t
|
|
|
|
|
|
|
|
|
|
val write_tls :
|
|
|
|
|
Tls_lwt.Unix.t -> Vmm_commands.wire -> (unit, [> `Exception ]) result Lwt.t
|
2018-10-28 18:19:38 +00:00
|
|
|
|
|
|
|
|
val close : Tls_lwt.Unix.t -> unit Lwt.t
|
