+ ZeroLimitedOperation
This commit is contained in:
parent
a862c199be
commit
6eb7edb0bc
1 changed files with 16 additions and 0 deletions
16
src/api.ml
16
src/api.ml
|
|
@ -1074,3 +1074,19 @@ 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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue