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

Browse source
This commit is contained in:
swrup 2025-11-23 15:53:49 +01:00
parent 92a4f9a469
commit 10905691d8
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/pg.ml
View file

@ -97,12 +97,11 @@ let activate_signing_key =
in in
fun (module Conn : CONN) exchange_signkey -> fun (module Conn : CONN) exchange_signkey ->
let Signkey. let Signkey.
{ pub; stamp_start; stamp_expire; stamp_end; master_sig= _; sign= _ } { pub; stamp_start; stamp_expire; stamp_end; master_sig; sign= _ } =
=
exchange_signkey exchange_signkey
in in
(*let master_sig = master_sig |> Option.get in*) (* TODO master_sig *)
let master_sig = EddsaSignature.of_octets (String.make 64 'x') in let master_sig = master_sig |> Option.get in
Conn.exec insert_signkey Conn.exec insert_signkey
(pub, stamp_start, stamp_expire, stamp_end, master_sig) (pub, stamp_start, stamp_expire, stamp_end, master_sig)
@ -151,6 +150,7 @@ let add_denomination_key =
} = } =
denom denom
in in
(* TODO master_sig *)
let master_sig = master_sig |> Option.get in let master_sig = master_sig |> Option.get in
Conn.exec denomination_insert Conn.exec denomination_insert
( h_pub, ( h_pub,

2
src/signkey.ml
View file

@ -1,5 +1,7 @@
open Crypto open Crypto
(* TODO master_sig
not sur how to handle master_sig initialization *)
type t = { type t = {
pub: EddsaPublicKey.t; pub: EddsaPublicKey.t;
stamp_start: Ptime.t; stamp_start: Ptime.t;