diff --git a/src/secmod_denom.ml b/src/secmod_denom.ml index 3de76e66..a1b8c921 100644 --- a/src/secmod_denom.ml +++ b/src/secmod_denom.ml @@ -12,6 +12,8 @@ let get_denoms t = Miou.Mutex.protect t.lock @@ fun () -> Hashtbl.to_seq_values t.denom_ht |> List.of_seq +[@@@ocaml.warning "-27"] + let add_master_signatures conn t l = Miou.Mutex.protect t.lock @@ fun () -> list_iter @@ -22,6 +24,25 @@ let add_master_signatures conn t l = let denom = { denom with master_sig= Some master_sig } in let* () = Pg.add_denomination_key conn denom |> unwrap_err_caqti in Hashtbl.replace t.denom_ht h_denom_pub denom; + let* ( valid_from, + expire_withdraw, + expire_deposit, + expire_legal, + coin, + fee_withdraw, + fee_deposit, + fee_refresh, + fee_refund, + age_mask ) = + Pg.lookup_denomination_key conn h_denom_pub + |> unwrap_err_caqti + |> Result.map Option.get + in + (* + assert (valid_from = denom.stamp_start); + assert (coin = denom.value); + assert (age_mask = denom.age_mask); + *) Ok ()) l