src/denomination.ml

@@ -110,3 +110,31 @@ let make_denom_group_sorted denominations =
     |> List.sort cmp_group
   in
   l
+
+let print_denom dn =
+  let open Signatures.DenominationKeyValidity in
+  let r =
+    {
+      R.master= Config.master_public_key;
+      start= dn.stamp_start;
+      expire_withdraw= dn.stamp_expire_withdraw;
+      expire_spend= dn.stamp_expire_deposit;
+      expire_legal= dn.stamp_expire_legal;
+      value= dn.value;
+      fee_withdraw= dn.fee_withdraw;
+      fee_deposit= dn.fee_deposit;
+      fee_refresh= dn.fee_refresh;
+      fee_refund= dn.fee_refund;
+      denom_hash= dn.h_pub;
+    }
+  in
+  let to_hex s =
+    let hex = Hex.of_string s in
+    let hex = Hex.hexdump_s ~print_row_numbers:false ~print_chars:false hex in
+    hex
+  in
+  let s = Bin.to_string R.bin r in
+  Fmt.epr "@.h_pub:%s@."
+    (dn.h_pub |> Hash.DenominationHash.to_octets |> B32.encode);
+  Fmt.epr "@.%s@." (to_hex s);
+  ()

src/http_info.ml

@@ -80,6 +80,7 @@ let mk_keys ~db_conn (module Keys : Keys.S) ~last_issue_date =
           (fun v -> Timestamp.geq v.Denomination.stamp_start timestamp)
           denom_l
   in
+  let () = List.iter Denomination.print_denom denom_l in
   let* denominations = Denomination.make_denom_group_sorted denom_l in
 
   let* signkeys = Keys.signkeys () in