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

~ keep jsont in Types for trivial types

Browse source 
not sure about this
This commit is contained in:
swrup 2025-10-17 17:01:54 +02:00
parent 9929a4a324
commit 78b08dcb4e
3 changed files with 19 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/json.ml
View file

@ -73,36 +73,6 @@ module RelativeTime = struct
|> Jsont.Object.finish
end
module Amount = struct
open Amount
let jsont = Jsont.of_of_string ~kind:"Amount" of_string ~enc:to_string
end
module EddsaPublicKey = struct
open EddsaPublicKey
let jsont = Jsont.of_of_string ~kind:"EddsaPublicKey" of_b32 ~enc:to_b32
end
module EddsaSignature = struct
open EddsaSignature
let jsont = Jsont.of_of_string ~kind:"EddsaSignature" of_b32 ~enc:to_b32
end
module RsaPublicKey = struct
open RsaPublicKey
let jsont = Jsont.of_of_string ~kind:"RsaPublicKey" of_b32 ~enc:to_b32
end
module RsaSignature = struct
open RsaSignature
let jsont = Jsont.of_of_string ~kind:"RsaSignature" of_b32 ~enc:to_b32
end
module RsaDenominationKey = struct
open RsaDenominationKey