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

Proto/env: add missing type equalities

Browse Source
This commit is contained in:
Grégoire Henry 2018-02-20 18:27:08 +01:00
parent a1b30417e2
commit f999524887
3 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib_protocol_environment/tezos_protocol_environment.ml
View File

@ -139,6 +139,8 @@ module Make (Context : CONTEXT) = struct
val wrap_error : 'a Error_monad.tzresult -> 'a tzresult val wrap_error : 'a Error_monad.tzresult -> 'a tzresult
module Lift (P : Updater.PROTOCOL) : PROTOCOL module Lift (P : Updater.PROTOCOL) : PROTOCOL
with type operation = P.operation
and type validation_state = P.validation_state
class ['block] proto_rpc_context : class ['block] proto_rpc_context :
Tezos_rpc.RPC_context.t -> (unit, unit * 'block) RPC_path.t -> Tezos_rpc.RPC_context.t -> (unit, unit * 'block) RPC_path.t ->

2
src/lib_protocol_environment/tezos_protocol_environment.mli
View File

@ -132,6 +132,8 @@ module Make (Context : CONTEXT) : sig
val wrap_error : 'a Error_monad.tzresult -> 'a tzresult val wrap_error : 'a Error_monad.tzresult -> 'a tzresult
module Lift (P : Updater.PROTOCOL) : PROTOCOL module Lift (P : Updater.PROTOCOL) : PROTOCOL
with type operation = P.operation
and type validation_state = P.validation_state
class ['block] proto_rpc_context : class ['block] proto_rpc_context :
Tezos_rpc.RPC_context.t -> (unit, unit * 'block) RPC_path.t -> Tezos_rpc.RPC_context.t -> (unit, unit * 'block) RPC_path.t ->

20
src/proto_alpha/lib_protocol/src/main.mli
View File

@ -9,4 +9,24 @@
(** Tezos Protocol Implementation - Protocol Signature Instance *) (** Tezos Protocol Implementation - Protocol Signature Instance *)
type validation_mode =
| Application of {
block_header : Alpha_context.Block_header.t ;
baker : Alpha_context.public_key_hash ;
}
| Partial_construction of {
predecessor : Block_hash.t ;
}
| Full_construction of {
predecessor : Block_hash.t ;
protocol_data : Alpha_context.Block_header.protocol_data ;
baker : Alpha_context.public_key_hash ;
}
type validation_state =
{ mode : validation_mode ;
ctxt : Alpha_context.t ;
op_count : int }
include Updater.PROTOCOL with type operation = Alpha_context.Operation.t include Updater.PROTOCOL with type operation = Alpha_context.Operation.t
and type validation_state := validation_state