Micheline_common (mavryk-benchmarks-proto-alpha.Mavryk_benchmarks_proto_alpha.Encodings_benchmarks.Micheline

val make_printable : 
  ('a, Mavryk_protocol_alpha.Protocol.Michelson_v1_primitives.prim)
    Mavryk_micheline.Micheline.node ->
  (Mavryk_micheline.Micheline_printer.location, string)
    Mavryk_micheline.Micheline.node

type phase =

| Trace_production
| In_protocol
| Global

type error =

| Bad_micheline of {
1. benchmark_name : Mavryk_benchmark.Namespace.t;
2. micheline : Mavryk_protocol_alpha.Protocol.Alpha_context.Script.node;
3. phase : phase;
}

exception Micheline_benchmark of error

val pp_phase : Stdlib.Format.formatter -> phase -> unit

val pp_error : Stdlib.Format.formatter -> error -> unit

val bad_micheline : 
  Mavryk_benchmark.Namespace.t ->
  Mavryk_protocol_alpha.Protocol.Alpha_context.Script.node ->
  phase ->
  'a

type workload = {

size : Size.micheline_size;
bytes : int;

}

val workload_encoding : 
  workload Mavryk_base.TzPervasives.Data_encoding.encoding

val workload_to_vector : workload -> Mavryk_benchmark.Sparse_vec.String.t

val tags : string list

val model_size : string -> workload Mavryk_benchmark.Model.t

val model_bytes : string -> workload Mavryk_benchmark.Model.t

val models : string -> (string * workload Mavryk_benchmark.Model.t) list