Keyed (flexmasa.Flexmasa.Mavryk

type t = {

client : client;
key_name : Internal_pervasives.string;
secret_key : Internal_pervasives.string;

}

val make : 
  client ->
  key_name:Internal_pervasives.string ->
  secret_key:Internal_pervasives.string ->
  t

val initialize : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  (< err : Internal_pervasives.string Internal_pervasives.list
    ; out : Internal_pervasives.string Internal_pervasives.list
    ; status : Unix.process_status >,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

Get the keyed-client ready to use (i.e. import the secret key).

val bake : 
  ?chain:Internal_pervasives.string ->
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; operations_log : Log_recorder.Operations.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  Internal_pervasives.string ->
  (Internal_pervasives.unit,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t
    | Internal_pervasives.Process_result.Error.t ])
    Internal_pervasives.Asynchronous_result.t

val endorse : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; env_config : Environment_configuration.t
    ; operations_log : Log_recorder.Operations.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  Internal_pervasives.string ->
  (Internal_pervasives.unit,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val generate_nonce : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; operations_log : Log_recorder.Operations.t
    ; env_config : Environment_configuration.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  Internal_pervasives.string ->
  (Internal_pervasives.string,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val sign_bytes : 
  < application_name : Internal_pervasives.string
    ; env_config : Environment_configuration.t
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  bytes:Internal_pervasives.string ->
  key_name:Internal_pervasives.string ->
  (Internal_pervasives.string,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val forge_and_inject : 
  < application_name : Internal_pervasives.string
    ; env_config : Environment_configuration.t
    ; console : Console.t
    ; paths : Paths.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  json:Ezjsonm.value ->
  (Ezjsonm.value,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val update_counter : 
  ?current_counter_override:Internal_pervasives.int ->
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  Internal_pervasives.string ->
  (Internal_pervasives.int,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val operations_from_chain : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  (Ezjsonm.value,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val get_contract_id : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  Internal_pervasives.string ->
  (Internal_pervasives.string,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t

val counter_from_chain : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; paths : Paths.t
    ; env_config : Environment_configuration.t
    ; runner : Running_processes.State.t.. > ->
  t ->
  (Internal_pervasives.int,
    [> Internal_pervasives.Process_result.Error.t
    | Internal_pervasives.System_error.t ])
    Internal_pervasives.Asynchronous_result.t