diff --git a/src/pg.ml b/src/pg.ml index 769cfe46..7d890ad0 100644 --- a/src/pg.ml +++ b/src/pg.ml @@ -97,12 +97,11 @@ let activate_signing_key = in fun (module Conn : CONN) exchange_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 in - (*let master_sig = master_sig |> Option.get in*) - let master_sig = EddsaSignature.of_octets (String.make 64 'x') in + (* TODO master_sig *) + let master_sig = master_sig |> Option.get in Conn.exec insert_signkey (pub, stamp_start, stamp_expire, stamp_end, master_sig) @@ -151,6 +150,7 @@ let add_denomination_key = } = denom in + (* TODO master_sig *) let master_sig = master_sig |> Option.get in Conn.exec denomination_insert ( h_pub, diff --git a/src/signkey.ml b/src/signkey.ml index 01095f00..c4cfe477 100644 --- a/src/signkey.ml +++ b/src/signkey.ml @@ -1,5 +1,7 @@ open Crypto +(* TODO master_sig + not sur how to handle master_sig initialization *) type t = { pub: EddsaPublicKey.t; stamp_start: Ptime.t;