albatross/src/vmm_tls.mli

(* (c) 2018 Hannes Mehnert, all rights reserved *)

val wire_command_of_cert : Vmm_commands.version -> X509.t ->
  (Vmm_commands.t, [> `Parse of string | `Not_present | `Version of Vmm_commands.version ]) result

val handle :
  'a -> Vmm_commands.version ->
  X509.t list ->
  (Vmm_core.Name.t * (Vmm_core.Name.t * Vmm_core.policy) list * Vmm_commands.t,
   [> `Msg of string ]) Result.result
copyright 2018-10-23 22:13:47 +00:00			`(* (c) 2018 Hannes Mehnert, all rights reserved *)`
move stuff into vmm_commands 2018-10-23 22:03:36 +00:00
move stuff around 2018-10-25 14:55:54 +00:00			`val wire_command_of_cert : Vmm_commands.version -> X509.t ->`
issue policy_add commands by vmmd_tls for certificate chain 2018-10-28 19:50:10 +00:00			(Vmm_commands.t, [> `Parse of string \| `Not_present \| `Version of Vmm_commands.version ]) result
move stuff around 2018-10-25 14:55:54 +00:00
move more stuff around 2018-10-23 22:10:08 +00:00			`val handle :`
			`'a -> Vmm_commands.version ->`
			`X509.t list ->`
rename Vmm_core.id to Vmm_core.Name.t and make it private - also check constructors to fit into 20 chars ldh (and in Vmm_tls max depth = 10) 2018-11-11 00:21:12 +00:00			`(Vmm_core.Name.t * (Vmm_core.Name.t * Vmm_core.policy) list * Vmm_commands.t,`
issue policy_add commands by vmmd_tls for certificate chain 2018-10-28 19:50:10 +00:00			[> `Msg of string ]) Result.result