S (mavryk-protocol-alpha.Mavryk_raw_protocol_alpha.Sapling

module Args : sig ... end

val make_service : 
  ('a, 'b) Args.t ->
  ([ `GET ],
    Mavryk_protocol_environment_alpha.RPC_context.t,
    Mavryk_protocol_environment_alpha.RPC_context.t
    * Alpha_context.Sapling.Id.t,
    'c,
    unit,
    'd)
    Mavryk_protocol_environment_alpha.RPC_service.service
  * (Alpha_context.context ->
  Alpha_context.Sapling.Id.t ->
  'e ->
  unit ->
  'f Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t)

val get_diff : 
  ([ `GET ],
    Mavryk_protocol_environment_alpha.RPC_context.t,
    Mavryk_protocol_environment_alpha.RPC_context.t
    * Alpha_context.Sapling.Id.t,
    diff_query,
    unit,
    Alpha_context.Sapling.root * Alpha_context.Sapling.diff)
    Mavryk_protocol_environment_alpha.RPC_service.service
  * (Alpha_context.context ->
  Alpha_context.Sapling.Id.t ->
  diff_query ->
  unit ->
  (Alpha_context.Sapling.root * Alpha_context.Sapling.diff)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t)