Operations (flexmasa.Flexmasa.Log

type t = {

mutable operations : [ `Bake of Internal_pervasives.string * Internal_pervasives.string * Internal_pervasives.string Internal_pervasives.list | `Endorse of Internal_pervasives.string * Internal_pervasives.string * Internal_pervasives.string Internal_pervasives.list | `Transfer of Internal_pervasives.string * Internal_pervasives.string * Internal_pervasives.string * Internal_pervasives.string Internal_pervasives.list ] Internal_pervasives.list;

}

val make : unit -> t

val from_state : < operations_log : t.. > -> t

val show_all : 
  < application_name : Internal_pervasives.string
    ; console : Console.t
    ; operations_log : t.. > ->
  Console.Prompt.item

val bake : 
  < operations_log : t.. > ->
  client:Internal_pervasives.string ->
  output:Internal_pervasives.string Internal_pervasives.list ->
  Internal_pervasives.string ->
  unit

val endorse : 
  < operations_log : t.. > ->
  client:Internal_pervasives.string ->
  output:Internal_pervasives.string Internal_pervasives.list ->
  Internal_pervasives.string ->
  unit