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

ok compile

Browse source
This commit is contained in:
swrup 2026-02-21 16:02:32 +01:00
parent c42636b998
commit bded77a939
5 changed files with 38 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/keys.ml
View file

@ -1,3 +1,4 @@
(* TODO better error type *)
type 'a result = ('a, string) Result.t
module type S = Keys_intf.S
@ -41,7 +42,7 @@ module Make (Conn : Pg.CONN) = struct
let exchange_pub = pub in
let anchor_time = stamp_start in
let duration = Timestamp.diff stamp_start stamp_expire in
sign_f ~f:Secmod_eddsa.sign_with_sm_key
signf Secmod_eddsa.sign_with_sm_key
{ exchange_pub; anchor_time; duration }
in
Api.FutureSignKey.
@ -89,7 +90,7 @@ module Make (Conn : Pg.CONN) = struct
let duration_withdraw =
Timestamp.diff stamp_start stamp_expire_withdraw
in
sign_f ~f:Secmod_rsa.sign_with_sm_key
signf Secmod_rsa.sign_with_sm_key
{ h_denom_pub; h_section_name; anchor_time; duration_withdraw }
in
FutureDenom.