From 074442cfc06e95867f63003425258d7f90a2f96f Mon Sep 17 00:00:00 2001 From: swrup Date: Sun, 19 Oct 2025 00:15:47 +0200 Subject: [PATCH] --- src/devices.ml | 6 +++--- src/management.ml | 6 +++--- src/{secmod_keys.ml => signkey.ml} | 0 3 files changed, 6 insertions(+), 6 deletions(-) rename src/{secmod_keys.ml => signkey.ml} (100%) diff --git a/src/devices.ml b/src/devices.ml index 9b7f698c..f58d3c47 100644 --- a/src/devices.ml +++ b/src/devices.ml @@ -2,9 +2,9 @@ better types to not mixup keys maybe .. *) -let signkey = Secmod_keys.make ~name:"signkey" -let online_key = Secmod_keys.make ~name:"online_key" -let denom_key = Secmod_keys.make ~name:"denom_key" +let signkey = Signkey.make ~name:"signkey" +let online_key = Signkey.make ~name:"online_key" +let denom_key = Signkey.make ~name:"denom_key" let denominations = let finally _key = () in diff --git a/src/management.ml b/src/management.ml index a6fe951f..fc5c63e2 100644 --- a/src/management.ml +++ b/src/management.ml @@ -58,7 +58,7 @@ let mk_future_denom denom_key_signf } let mk_future_signkey signkey_signf - ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Secmod_keys.t) = + ({ pub; sign= _; stamp_start; stamp_expire; stamp_end } : Signkey.t) = let signkey_secmod_sig = let open Binary_formats in let exchange_pub = pub in @@ -88,11 +88,11 @@ let mk_future_signkey signkey_signf let mk_future_keys_response ~signkey ~online_key ~denom_key ~denominations = let future_denoms = (* todo: "only those lacking a master signature" *) - List.map (mk_future_denom denom_key.Secmod_keys.sign) denominations + List.map (mk_future_denom denom_key.Signkey.sign) denominations in let future_signkeys = (* todo: "only those lacking a master signature" *) - List.map (mk_future_signkey signkey.Secmod_keys.sign) [ online_key ] + List.map (mk_future_signkey signkey.Signkey.sign) [ online_key ] in let master_pub = Config.Exchange.master_public_key in let denom_secmod_public_key = denom_key.pub in diff --git a/src/secmod_keys.ml b/src/signkey.ml similarity index 100% rename from src/secmod_keys.ml rename to src/signkey.ml