+ ok secmod.ml

src/management.ml

@@ -202,14 +202,14 @@ module Keys_post = struct
       signkey_sigs
       |> List.map (fun SignKeySignature.{ key; master_sig } ->
           (key, master_sig))
-      |> Secmod.add_master_signatures db_conn sm_signkey
+      |> Secmod.add_signkey_master_signatures db_conn sm_signkey
     in
     let* () =
       denom_sigs
       |> List.map (fun DenomSignature.{ h_denom_pub; master_sig } ->
           let h_denom_pub = HashCode.to_denomination_hash h_denom_pub in
           (h_denom_pub, master_sig))
-      |> Secmod.add_master_signatures db_conn sm_denom
+      |> Secmod.add_denom_master_signatures db_conn sm_denom
     in
     let* () = check_master_signatures_update ~db_conn ~sm_denom in
     Ok ()

src/secmod.ml

@@ -233,7 +233,7 @@ let load conn =
              dn_ht;
              dn_revoked_ht;
            })
-  | _, _ -> error_invalid_state
+  | _, _, _ -> error_invalid_state
 
 let make_new () =
   let lock = Miou.Mutex.create () in