swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

more module renaming

Browse source
This commit is contained in:
swrup 2025-10-07 15:08:35 +02:00
parent e4b9fb473a
commit 4490485fc2
5 changed files with 30 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/json.ml
View file

@ -4,8 +4,8 @@ let encode_exn jsont v = Jsont_bytesrw.encode_string jsont v |> Result.get_ok
let encode jsont v = Jsont_bytesrw.encode_string jsont v
let decode jsont v = Jsont_bytesrw.decode_string jsont v
module Error_detail = struct
open Error_detail
module ErrorDetail = struct
open ErrorDetail
let jsont =
let make code hint = { code; hint } in
@ -45,8 +45,8 @@ module Timestamp = struct
|> Jsont.Object.finish
end
module Relative_time = struct
open Relative_time
module RelativeTime = struct
open RelativeTime
let number_or_forever_jsont =
let forever =
@ -87,8 +87,8 @@ module Eddsa = struct
let signature_jsont = Jsont.string
end
module Rsa_denomination_key = struct
open Rsa_denomination_key
module RsaDenominationKey = struct
open RsaDenominationKey
let jsont =
let make age_mask rsa_pub = { age_mask; rsa_pub } in
@ -100,8 +100,8 @@ module Rsa_denomination_key = struct
|> Jsont.Object.finish
end
module CS_denomination_key = struct
open CS_denomination_key
module CSDenominationKey = struct
open CSDenominationKey
let jsont =
let make age_mask cs_pub = { age_mask; cs_pub } in
@ -113,16 +113,16 @@ module CS_denomination_key = struct
|> Jsont.Object.finish
end
module Denomination_key = struct
open Denomination_key
module DenominationKey = struct
open DenominationKey
let rsa v = Rsa v
let cs v = CS v
let jsont =
let open Jsont.Object in
let rsa = Case.map "RSA" Rsa_denomination_key.jsont ~dec:rsa in
let cs = Case.map "CS" CS_denomination_key.jsont ~dec:cs in
let rsa = Case.map "RSA" RsaDenominationKey.jsont ~dec:rsa in
let cs = Case.map "CS" CSDenominationKey.jsont ~dec:cs in
let enc_case = function
| Rsa v -> Case.value rsa v
| CS v -> Case.value cs v
@ -133,8 +133,8 @@ module Denomination_key = struct
|> finish
end
module Future_sign_key = struct
open Future_sign_key
module FutureSignKey = struct
open FutureSignKey
let jsont =
(* TODO ppx? *)