20 lines
398 B
OCaml
20 lines
398 B
OCaml
|
type t = {
|
||
|
|
auditor_pub: Crypto.EddsaPublicKey.t;
|
||
|
|
auditor_url: string;
|
||
|
|
auditor_name: string;
|
||
|
|
last_change: Timestamp.t;
|
||
|
|
is_active: bool;
|
||
|
|
}
|
||
|
|
|
||
|
|
let of_setup_message
|
||
|
|
Api.AuditorSetupMessage.
|
||
|
|
{ auditor_url; auditor_name; auditor_pub; master_sig= _; validity_start }
|
||
|
|
=
|
||
|
|
{
|
||
|
|
auditor_url;
|
||
|
|
auditor_name;
|
||
|
|
auditor_pub;
|
||
|
|
last_change= validity_start;
|
||
|
|
is_active= true;
|
||
|
|
}
|