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

add hash.ml + refacto

Browse source
This commit is contained in:
swrup 2026-02-05 17:51:24 +01:00
parent 55ccc6f18a
commit 63e711f7dd
11 changed files with 193 additions and 199 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/secmod.ml
View file

@ -86,7 +86,7 @@ module Make (Conn : Pg.CONN) = struct
let db_lookup_denom_data conn ~section_name priv =
let pub = RsaPrivateKey.pub_of_priv priv in
let h_pub = Bin_type.DenominationHash.hash (RsaPublicKey.to_octets pub) in
let h_pub = Hash.DenominationHash.hash (RsaPublicKey.to_octets pub) in
let* opt = Pg.find_denom conn h_pub |> unwrap_err_caqti in
match opt with
| None ->
@ -209,7 +209,7 @@ module Make (Conn : Pg.CONN) = struct
in
let priv, pub = RsaPrivateKey.generate ~bits:rsa_keysize () in
let h_pub = Bin_type.DenominationHash.hash (RsaPublicKey.to_octets pub) in
let h_pub = Hash.DenominationHash.hash (RsaPublicKey.to_octets pub) in
let master_sig = None in
let revoked_sig = None in
let dn_data =