Sapling_services.S
module Args : sig ... end
val make_service :
('a, 'b) Args.t ->
([ `GET ],
Tezos_protocol_alpha.Environment.RPC_context.t,
Tezos_protocol_alpha.Environment.RPC_context.t
* Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t,
'a,
unit,
'b)
Tezos_protocol_alpha.Environment.RPC_service.service
* (Tezos_protocol_alpha.Protocol.Alpha_context.context ->
Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t ->
'a ->
unit ->
'b Tezos_protocol_alpha.Environment.Error_monad.tzresult
Tezos_protocol_alpha.Environment.Lwt.t)
val get_diff :
([ `GET ],
Tezos_protocol_alpha.Environment.RPC_context.t,
Tezos_protocol_alpha.Environment.RPC_context.t
* Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t,
diff_query,
unit,
Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.root
* Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.diff)
Tezos_protocol_alpha.Environment.RPC_service.service
* (Tezos_protocol_alpha.Protocol.Alpha_context.context ->
Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.Id.t ->
diff_query ->
unit ->
(Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.root
* Tezos_protocol_alpha.Protocol.Alpha_context.Sapling.diff)
Tezos_protocol_alpha.Environment.Error_monad.tzresult
Tezos_protocol_alpha.Environment.Lwt.t)