2018-10-23 22:13:47 +00:00
|
|
|
(* (c) 2018 Hannes Mehnert, all rights reserved *)
|
2018-10-23 22:03:36 +00:00
|
|
|
|
2018-10-25 14:55:54 +00:00
|
|
|
val wire_command_of_cert : Vmm_commands.version -> X509.t ->
|
2018-10-28 19:50:10 +00:00
|
|
|
(Vmm_commands.t, [> `Parse of string | `Not_present | `Version of Vmm_commands.version ]) result
|
2018-10-25 14:55:54 +00:00
|
|
|
|
2018-10-23 22:10:08 +00:00
|
|
|
val handle :
|
2018-11-23 19:28:33 +00:00
|
|
|
Vmm_commands.version ->
|
2018-10-23 22:10:08 +00:00
|
|
|
X509.t list ->
|
2018-11-11 02:09:37 +00:00
|
|
|
(Vmm_core.Name.t * (Vmm_core.Name.t * Vmm_core.Policy.t) list * Vmm_commands.t,
|
2018-10-28 19:50:10 +00:00
|
|
|
[> `Msg of string ]) Result.result
|