swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix denomination hash

Browse source
This commit is contained in:
swrup 2026-02-27 23:36:05 +01:00
parent 9c87aa63ea
commit 0b72705602
11 changed files with 106 additions and 55 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/keys.ml
View file

@ -119,8 +119,7 @@ module Make (Conn : Pg.CONN) : S = struct
let make_future_dn (h_pub, (section_name, pub, start)) =
Logs.debug (fun m ->
m "make_future_dn: `%s`"
(B32.encode @@ Hash.DenominationHash.to_octets h_pub));
m "make_future_dn: `%s`" (DenominationHash.to_b32 h_pub));
let open Time in
let Config.Coin.
{
@ -320,7 +319,7 @@ module Make (Conn : Pg.CONN) : S = struct
let+ () = Pg.insert_denom conn dn |> unwrap_err_caqti in
Logs.info (fun m ->
m "certified denomination `%s`"
(B32.encode @@ Hash.DenominationHash.to_octets dn.h_pub));
(DenominationHash.to_b32 dn.h_pub));
())
let revoke_signkey pub revoked_sig =
@ -342,7 +341,6 @@ module Make (Conn : Pg.CONN) : S = struct
|> unwrap_err_caqti
in
Logs.info (fun m ->
m "revoked denomination `%s`"
(B32.encode @@ Hash.DenominationHash.to_octets h_pub));
m "revoked denomination `%s`" (DenominationHash.to_b32 h_pub));
()
end