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

src/mte.ml

@@ -14,7 +14,7 @@
     along with this program.  If not, see <https://www.gnu.org/licenses/>. *)
 
 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

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