use exchange_pub valid at this time

This commit is contained in:
swrup 2026-02-26 17:04:48 +01:00 committed by Swrup
parent 9df75d7ea4
commit 96ac74a0ab
5 changed files with 25 additions and 8 deletions

View file

@ -7,3 +7,6 @@ type 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