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

+wip db-sm different key state issue

Browse source
This commit is contained in:
swrup 2026-02-23 12:29:49 +01:00
parent 08d18467f8
commit 74d909fa90
6 changed files with 59 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/secmod_eddsa.ml
View file

@ -200,12 +200,6 @@ module Make () = struct
(* ---- *)
let sm_pub = t.sm_pub
let keys () =
Hashtbl.to_seq_values t.ht
|> List.of_seq
|> List.map (fun { priv= _; pub; t1; t2 } -> (pub, t1, t2))
let sign_secmod s = EddsaSignature.sign ~key:t.sm_key_priv s
let sign pub s =
@ -218,6 +212,10 @@ module Make () = struct
let* k = find pub in
let* () = delete pub in
add k.t1 k.t2; Ok ()
let conv = fun { priv= _; pub; t1; t2 } -> (pub, (t1, t2))
let keys () = Hashtbl.to_seq_values t.ht |> List.of_seq |> List.map conv
let find_key pub = Hashtbl.find_opt t.ht pub |> Option.map conv
end
(* TODO