balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Client refactor: Client_proto_rpcs.block -> Block_services.block

Browse Source
This commit is contained in:
Grégoire Henry 2018-02-11 19:17:39 +01:00
parent 83307c6de0
commit 2c90308caf
8 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_client/client_baking_endorsement.mli
View File

@ -12,7 +12,7 @@ open Tezos_context
val forge_endorsement: val forge_endorsement:
#Client_commands.full_context -> #Client_commands.full_context ->
Client_proto_rpcs.block -> Block_services.block ->
src_sk:Client_keys.sk_locator -> src_sk:Client_keys.sk_locator ->
?slot:int -> ?slot:int ->
?max_priority:int -> ?max_priority:int ->

4
src/proto_alpha/lib_client/client_baking_forge.mli
View File

@ -37,7 +37,7 @@ type error +=
val forge_block: val forge_block:
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
?force:bool -> ?force:bool ->
?operations:Operation.raw list -> ?operations:Operation.raw list ->
?best_effort:bool -> ?best_effort:bool ->
@ -86,5 +86,5 @@ val create:
val get_unrevealed_nonces: val get_unrevealed_nonces:
#Client_commands.full_context -> #Client_commands.full_context ->
?force:bool -> ?force:bool ->
Client_proto_rpcs.block -> Block_services.block ->
(Block_hash.t * (Raw_level.t * Nonce.t)) list tzresult Lwt.t (Block_hash.t * (Raw_level.t * Nonce.t)) list tzresult Lwt.t

2
src/proto_alpha/lib_client/client_baking_lib.mli
View File

@ -13,7 +13,7 @@ open Tezos_context
(** Mine a block *) (** Mine a block *)
val bake_block: val bake_block:
#Client_commands.full_context -> #Client_commands.full_context ->
Client_proto_rpcs.block -> Block_services.block ->
?force:bool -> ?force:bool ->
?max_priority: int -> ?max_priority: int ->
?free_baking: bool -> ?free_baking: bool ->

4
src/proto_alpha/lib_client/client_baking_revelation.mli
View File

@ -12,13 +12,13 @@ open Tezos_context
val inject_seed_nonce_revelation: val inject_seed_nonce_revelation:
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
?async:bool -> ?async:bool ->
(Raw_level.t * Nonce.t) list -> (Raw_level.t * Nonce.t) list ->
Operation_hash.t tzresult Lwt.t Operation_hash.t tzresult Lwt.t
val forge_seed_nonce_revelation: val forge_seed_nonce_revelation:
#Client_commands.full_context -> #Client_commands.full_context ->
Client_proto_rpcs.block -> Block_services.block ->
(Raw_level.t * Nonce.t) list -> (Raw_level.t * Nonce.t) list ->
unit tzresult Lwt.t unit tzresult Lwt.t

16
src/proto_alpha/lib_client/client_proto_context.mli
View File

@ -13,31 +13,31 @@ open Environment
val list_contract_labels : val list_contract_labels :
#Client_commands.full_context -> #Client_commands.full_context ->
Client_proto_rpcs.block -> Block_services.block ->
(string * string * string) list tzresult Lwt.t (string * string * string) list tzresult Lwt.t
val get_storage : val get_storage :
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
Contract.t -> Contract.t ->
Script.expr option tzresult Lwt.t Script.expr option tzresult Lwt.t
val get_manager : val get_manager :
#Client_commands.full_context -> #Client_commands.full_context ->
Client_proto_rpcs.block -> Block_services.block ->
Contract.t -> Contract.t ->
(string * public_key_hash * (string * public_key_hash *
public_key * Client_keys.sk_locator) tzresult Lwt.t public_key * Client_keys.sk_locator) tzresult Lwt.t
val get_balance: val get_balance:
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
Contract.t -> Contract.t ->
Tez.t tzresult Lwt.t Tez.t tzresult Lwt.t
val set_delegate : val set_delegate :
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
fee:Tez.tez -> fee:Tez.tez ->
Contract.t -> Contract.t ->
src_pk:public_key -> src_pk:public_key ->
@ -52,7 +52,7 @@ val operation_submitted_message :
val source_to_keys: val source_to_keys:
#Client_commands.full_context -> #Client_commands.full_context ->
Client_proto_rpcs.block -> Block_services.block ->
Contract.t -> Contract.t ->
(public_key * Client_keys.sk_locator) tzresult Lwt.t (public_key * Client_keys.sk_locator) tzresult Lwt.t
@ -107,7 +107,7 @@ val faucet :
val transfer : val transfer :
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
?branch:int -> ?branch:int ->
source:Contract.t -> source:Contract.t ->
src_pk:public_key -> src_pk:public_key ->
@ -121,7 +121,7 @@ val transfer :
val dictate : val dictate :
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
dictator_operation -> dictator_operation ->
secret_key -> secret_key ->
Operation_hash.t tzresult Lwt.t Operation_hash.t tzresult Lwt.t

6
src/proto_alpha/lib_client/client_proto_contracts.mli
View File

@ -43,19 +43,19 @@ val list_contracts:
val get_manager: val get_manager:
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
Contract.t -> Contract.t ->
public_key_hash tzresult Lwt.t public_key_hash tzresult Lwt.t
val get_delegate: val get_delegate:
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
Contract.t -> Contract.t ->
public_key_hash tzresult Lwt.t public_key_hash tzresult Lwt.t
val check_public_key : val check_public_key :
#RPC_context.simple -> #RPC_context.simple ->
Client_proto_rpcs.block -> Block_services.block ->
?src_pk:public_key -> ?src_pk:public_key ->
public_key_hash -> public_key_hash ->
public_key option tzresult Lwt.t public_key option tzresult Lwt.t

6
src/proto_alpha/lib_client/client_proto_programs.mli
View File

@ -52,20 +52,20 @@ val hash_and_sign :
Michelson_v1_parser.parsed -> Michelson_v1_parser.parsed ->
Michelson_v1_parser.parsed -> Michelson_v1_parser.parsed ->
Client_keys.sk_locator -> Client_keys.sk_locator ->
Client_proto_rpcs.block -> Block_services.block ->
#RPC_context.simple -> #RPC_context.simple ->
(string * string) tzresult Lwt.t (string * string) tzresult Lwt.t
val typecheck_data : val typecheck_data :
data:Michelson_v1_parser.parsed -> data:Michelson_v1_parser.parsed ->
ty:Michelson_v1_parser.parsed -> ty:Michelson_v1_parser.parsed ->
Client_proto_rpcs.block -> Block_services.block ->
#RPC_context.simple -> #RPC_context.simple ->
unit tzresult Lwt.t unit tzresult Lwt.t
val typecheck_program : val typecheck_program :
Michelson_v1_parser.parsed -> Michelson_v1_parser.parsed ->
Client_proto_rpcs.block -> Block_services.block ->
#RPC_context.simple -> #RPC_context.simple ->
Script_tc_errors.type_map tzresult Lwt.t Script_tc_errors.type_map tzresult Lwt.t

20
src/proto_alpha/lib_client/test/proto_alpha_helpers.mli
View File

@ -19,7 +19,7 @@ val init :
forked Tezos node and the block info of the block from where the forked Tezos node and the block info of the block from where the
tests will begin. *) tests will begin. *)
val level : Client_proto_rpcs.block -> Tezos_context.Level.t tzresult Lwt.t val level : Block_services.block -> Tezos_context.Level.t tzresult Lwt.t
module Account : sig module Account : sig
@ -59,7 +59,7 @@ module Account : sig
(** The hardcoded bootstrap accounts. *) (** The hardcoded bootstrap accounts. *)
val transfer : val transfer :
?block:Client_proto_rpcs.block -> ?block:Block_services.block ->
?fee: Tez.t -> ?fee: Tez.t ->
account:t -> account:t ->
destination:Contract.t -> destination:Contract.t ->
@ -68,7 +68,7 @@ module Account : sig
(Operation_hash.t * Contract.t list) tzresult Lwt.t (Operation_hash.t * Contract.t list) tzresult Lwt.t
val originate : val originate :
?block:Client_proto_rpcs.block -> ?block:Block_services.block ->
?delegate:public_key_hash -> ?delegate:public_key_hash ->
?fee: Tez.t -> ?fee: Tez.t ->
src:t -> src:t ->
@ -77,7 +77,7 @@ module Account : sig
unit -> (Operation_hash.t * Contract.t) tzresult Lwt.t unit -> (Operation_hash.t * Contract.t) tzresult Lwt.t
val set_delegate : val set_delegate :
?block:Client_proto_rpcs.block -> ?block:Block_services.block ->
?fee: Tez.t -> ?fee: Tez.t ->
contract:Contract.t -> contract:Contract.t ->
manager_sk:Client_keys.Secret_key_locator.t -> manager_sk:Client_keys.Secret_key_locator.t ->
@ -85,10 +85,10 @@ module Account : sig
public_key_hash option -> public_key_hash option ->
Operation_hash.t tzresult Lwt.t Operation_hash.t tzresult Lwt.t
val balance : ?block:Client_proto_rpcs.block -> t -> Tez.t tzresult Lwt.t val balance : ?block:Block_services.block -> t -> Tez.t tzresult Lwt.t
val delegate : val delegate :
?block:Client_proto_rpcs.block -> ?block:Block_services.block ->
Contract.t -> Contract.t ->
public_key_hash option tzresult Lwt.t public_key_hash option tzresult Lwt.t
@ -112,17 +112,17 @@ module Endorse : sig
val endorse : val endorse :
?slot:int -> ?slot:int ->
Account.t -> Account.t ->
Client_proto_rpcs.block -> Block_services.block ->
Operation.raw tzresult Lwt.t Operation.raw tzresult Lwt.t
val endorsers_list : val endorsers_list :
Client_proto_rpcs.block -> Block_services.block ->
Account.t array tzresult Lwt.t Account.t array tzresult Lwt.t
val endorsement_rights : val endorsement_rights :
?max_priority:int -> ?max_priority:int ->
Account.t -> Account.t ->
Client_proto_rpcs.block -> Block_services.block ->
Client_proto_rpcs.Helpers.Rights.endorsement_slot list tzresult Lwt.t Client_proto_rpcs.Helpers.Rights.endorsement_slot list tzresult Lwt.t
end end
@ -208,4 +208,4 @@ module Assert : sig
end end
val display_level: Client_proto_rpcs.block -> unit tzresult Lwt.t val display_level: Block_services.block -> unit tzresult Lwt.t