+wip db-sm different key state issue

src/secmod_eddsa.ml

@@ -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