12 lines
295 B
OCaml
12 lines
295 B
OCaml
open Crypto
|
|
|
|
type t = {
|
|
pub: eddsa_pub;
|
|
stamp_start: Timestamp.t;
|
|
stamp_expire: Timestamp.t;
|
|
stamp_end: Timestamp.t;
|
|
master_sig: Signatures.ExchangeSigningKeyValidity.t;
|
|
}
|
|
|
|
let is_valid_at ~timestamp sk =
|
|
Timestamp.geq sk.stamp_start timestamp && Timestamp.lt timestamp sk.stamp_end
|