36 lines
1.1 KiB
OCaml
36 lines
1.1 KiB
OCaml
|
open Trace
|
||
|
|
|
||
|
|
val error_pp : ?dev:bool -> Format.formatter -> error -> unit
|
||
|
|
|
||
|
|
val result_pp_hr : (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a Simple_utils.Trace.result -> unit
|
||
|
|
|
||
|
|
val string_result_pp_hr : Format.formatter -> string Simple_utils.Trace.result -> unit
|
||
|
|
|
||
|
|
|
||
|
|
val result_pp_dev : (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a Simple_utils.Trace.result -> unit
|
||
|
|
|
||
|
|
val string_result_pp_dev : Format.formatter -> string Simple_utils.Trace.result -> unit
|
||
|
|
|
||
|
|
val json_pp : Format.formatter -> Simple_utils.Trace.J.t -> unit
|
||
|
|
|
||
|
|
val string_result_pp_json : Format.formatter -> string result -> unit
|
||
|
|
|
||
|
|
type display_format = [
|
||
|
|
| `Human_readable
|
||
|
|
| `Json
|
||
|
|
| `Dev
|
||
|
|
]
|
||
|
|
|
||
|
|
val display_format_of_string : string -> display_format
|
||
|
|
|
||
|
|
val formatted_string_result_pp : display_format -> Format.formatter -> string Simple_utils.Trace.result -> unit
|
||
|
|
|
||
|
|
type michelson_format = [
|
||
|
|
| `Michelson
|
||
|
|
| `Micheline
|
||
|
|
]
|
||
|
|
|
||
|
|
val michelson_format_of_string : string -> michelson_format Simple_utils.Trace.result
|
||
|
|
|
||
|
|
val michelson_pp : michelson_format -> Format.formatter -> Tezos_utils.Michelson.michelson -> unit
|