wip /management

src/types.ml

@@ -13,6 +13,8 @@ module Config_types = struct
 
   module Coin = struct
     type t = {
+      (* section_name: Name in the configuration file that defines this denomination *)
+      section_name: string;
       value: Amount.t;
       duration_withdraw: int;
       duration_spend: int;
@@ -82,6 +84,9 @@ module EddsaPublicKey = struct
     pub |> Mirage_crypto_ec.Ed25519.pub_to_octets |> B32.encode
 end
 
+(* TODO sig type
+   abstract type
+   same for RsaSignature *)
 module EddsaSignature = struct
   (* EdDSA signatures are transmitted as 64-bytes base32
      binary-encoded objects with just the R and S values (base32_ binary-only).
@@ -130,7 +135,7 @@ end
 module RsaDenominationKey = struct
   type t = {
     age_mask: int;
-    rsa_pub: string; (* Rsa.pub *)
+    rsa_pub: RsaPublicKey.t;
   }
 end