tezos-protocol-008-PtEdoTez 20.1 (latest)

module Kind : sig ... end

type raw = Tezos_protocol_environment_008_PtEdoTez.Operation.t = {

shell : Tezos_protocol_environment_008_PtEdoTez.Operation.shell_header;
proto : bytes;

}

val raw_encoding : raw Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

type 'kind operation = {

shell : Tezos_protocol_environment_008_PtEdoTez.Operation.shell_header;
protocol_data : 'kind protocol_data;

}

and 'kind protocol_data = {

contents : 'kind contents_list;
signature : Tezos_protocol_environment_008_PtEdoTez.Signature.t option;

}

and _ contents_list =

| Single : 'kind contents -> 'kind contents_list
| Cons : 'kind Kind.manager contents * 'rest Kind.manager contents_list -> ('kind * 'rest) Kind.manager contents_list

and _ contents =

| Endorsement : {
1. level : Raw_level_repr.t;
} -> Kind.endorsement contents
| Seed_nonce_revelation : {
1. level : Raw_level_repr.t;
2. nonce : Seed_repr.nonce;
} -> Kind.seed_nonce_revelation contents
| Double_endorsement_evidence : {
1. op1 : Kind.endorsement operation;
2. op2 : Kind.endorsement operation;
} -> Kind.double_endorsement_evidence contents
| Double_baking_evidence : {
1. bh1 : Block_header_repr.t;
2. bh2 : Block_header_repr.t;
} -> Kind.double_baking_evidence contents
| Activate_account : {
1. id : Tezos_protocol_environment_008_PtEdoTez.Ed25519.Public_key_hash.t;
2. activation_code : Blinded_public_key_hash.activation_code;
} -> Kind.activate_account contents
| Proposals : {
1. source : Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key_hash.t;
2. period : int32;
3. proposals : Tezos_protocol_environment_008_PtEdoTez.Protocol_hash.t list;
} -> Kind.proposals contents
| Ballot : {
1. source : Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key_hash.t;
2. period : int32;
3. proposal : Tezos_protocol_environment_008_PtEdoTez.Protocol_hash.t;
4. ballot : Vote_repr.ballot;
} -> Kind.ballot contents
| Manager_operation : {
1. source : Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key_hash.t;
2. fee : Tez_repr.tez;
3. counter : counter;
4. operation : 'kind manager_operation;
5. gas_limit : Gas_limit_repr.Arith.integral;
6. storage_limit : Tezos_protocol_environment_008_PtEdoTez.Z.t;
} -> 'kind Kind.manager contents

and _ manager_operation =

| Reveal : Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key.t -> Kind.reveal manager_operation
| Transaction : {
1. amount : Tez_repr.tez;
2. parameters : Script_repr.lazy_expr;
3. entrypoint : string;
4. destination : Contract_repr.contract;
} -> Kind.transaction manager_operation
| Origination : {
1. delegate : Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key_hash.t option;
2. script : Script_repr.t;
3. credit : Tez_repr.tez;
4. preorigination : Contract_repr.t option;
} -> Kind.origination manager_operation
| Delegation : Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key_hash.t option -> Kind.delegation manager_operation

and counter = Tezos_protocol_environment_008_PtEdoTez.Z.t

type 'kind internal_operation = {

source : Contract_repr.contract;
operation : 'kind manager_operation;
nonce : int;

}

type packed_manager_operation =

| Manager : 'kind manager_operation -> packed_manager_operation

type packed_contents =

| Contents : 'kind contents -> packed_contents

type packed_contents_list =

| Contents_list : 'kind contents_list -> packed_contents_list

val of_list : packed_contents list -> packed_contents_list

val to_list : packed_contents_list -> packed_contents list

type packed_protocol_data =

| Operation_data : 'kind protocol_data -> packed_protocol_data

type packed_operation = {

shell : Tezos_protocol_environment_008_PtEdoTez.Operation.shell_header;
protocol_data : packed_protocol_data;

}

val pack : 'kind operation -> packed_operation

type packed_internal_operation =

| Internal_operation : 'kind internal_operation -> packed_internal_operation

val manager_kind : 'kind manager_operation -> 'kind Kind.manager

val encoding : 
  packed_operation Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

val contents_encoding : 
  packed_contents Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

val contents_list_encoding : 
  packed_contents_list Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

val protocol_data_encoding : 
  packed_protocol_data Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

val unsigned_operation_encoding : 
  (Tezos_protocol_environment_008_PtEdoTez.Operation.shell_header
   * packed_contents_list)
    Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

val raw : _ operation -> raw

val hash_raw : raw -> Tezos_protocol_environment_008_PtEdoTez.Operation_hash.t

val hash : 
  _ operation ->
  Tezos_protocol_environment_008_PtEdoTez.Operation_hash.t

val hash_packed : 
  packed_operation ->
  Tezos_protocol_environment_008_PtEdoTez.Operation_hash.t

val acceptable_passes : packed_operation -> int list

type Tezos_protocol_environment_008_PtEdoTez.Error_monad.error +=

| Missing_signature

type Tezos_protocol_environment_008_PtEdoTez.Error_monad.error +=

| Invalid_signature

val check_signature : 
  Tezos_protocol_environment_008_PtEdoTez.Signature.Public_key.t ->
  Tezos_protocol_environment_008_PtEdoTez.Chain_id.t ->
  _ operation ->
  unit Tezos_protocol_environment_008_PtEdoTez.Error_monad.tzresult

val internal_operation_encoding : 
  packed_internal_operation
    Tezos_protocol_environment_008_PtEdoTez.Data_encoding.t

type ('a, 'b) eq =

| Eq : ('a, 'a) eq

val equal : 'a operation -> 'b operation -> ('a, 'b) eq option

module Encoding : sig ... end

package tezos-protocol-008-PtEdoTez