+ ZeroLimitedOperation

This commit is contained in:
swrup 2025-12-06 17:14:44 +01:00
parent a862c199be
commit 3667b6a9dd

View file

@ -1074,3 +1074,15 @@ module AccountLimit = struct
|> opt_mem "soft_limit" Jsont.bool ~enc:soft_limit |> opt_mem "soft_limit" Jsont.bool ~enc:soft_limit
|> finish |> finish
end end
module ZeroLimitedOperation = struct
type t = { operation_type: Account_operation.t }
let jsont =
let make operation_type = { operation_type } in
let operation_type v = v.operation_type in
let open Jsont.Object in
map ~kind:"ZeroLimitedOperation" make
|> mem "operation_type" Account_operation.jsont ~enc:operation_type
|> finish
end