diff --git a/src/denom_data.ml b/src/denom_data.ml index 7d94367d..147f64a4 100644 --- a/src/denom_data.ml +++ b/src/denom_data.ml @@ -16,3 +16,6 @@ type t = { master_sig: Signatures.DenominationKeyValidity.t option; revoked_sig: Signatures.MasterDenominationKeyRevocation.t option; } + +let section_name_ht: (denomination_hash, string) Hashtbl.t += Hashtbl.create 0xff diff --git a/src/pg_type.ml b/src/pg_type.ml index a94d739b..d891cb5f 100644 --- a/src/pg_type.ml +++ b/src/pg_type.ml @@ -123,6 +123,7 @@ let denom_data = -> Ok { + section_name; pub; value; stamp_start;