From b4cc2c79e679f3c9b755d212ebdcc18fb0e38ddf Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 21 Nov 2025 19:16:31 +0100 Subject: [PATCH] --- src/{json.ml => api.ml} | 0 src/management.ml | 4 ++-- src/mte.ml | 2 +- test/test.ml | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) rename src/{json.ml => api.ml} (100%) diff --git a/src/json.ml b/src/api.ml similarity index 100% rename from src/json.ml rename to src/api.ml diff --git a/src/management.ml b/src/management.ml index faf62021..2d9f0d89 100644 --- a/src/management.ml +++ b/src/management.ml @@ -1,4 +1,4 @@ -open Json +open Api open Devices let mk_future_denom denom_key_signf @@ -114,7 +114,7 @@ let keys req server _env = let secmod_signkey = Vif.Server.device Devices.secmod_signkey server in let secmod_denom = Vif.Server.device Devices.secmod_denom server in let v = mk_future_keys_response secmod_signkey secmod_denom in - let s = Json.encode_exn Json.FutureKeysResponse.jsont v in + let s = Api.encode_exn Api.FutureKeysResponse.jsont v in let* () = with_string req s in let* () = add ~field:"content-type" "application/json" in respond `OK diff --git a/src/mte.ml b/src/mte.ml index cb22317d..b7e7e153 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -14,7 +14,7 @@ along with this program. If not, see . *) let error_detail ?hint _status = - let open Json in + let open Api in let code = -1 in let s = encode_exn ErrorDetail.jsont { code; hint } in s diff --git a/test/test.ml b/test/test.ml index 91edf657..7d6b9785 100644 --- a/test/test.ml +++ b/test/test.ml @@ -1,5 +1,5 @@ let () = - let open Json in + let open Api in let check jsont s = let encode v = encode jsont v |> Result.get_ok in let decode v = decode jsont v |> Result.get_ok in