Ledger (mavbox.Mavbox.Mavryk

type hwm = {

main : Internal_pervasives.int;
test : Internal_pervasives.int;
chain : Internal_pervasives.string Internal_pervasives.option;

}

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

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

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

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

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