ATDGenerated.Jsoncost_j
type loc = Jsonbug_t.loc
type sub_item = Jsoncost_t.sub_item = {
hash : string;
loc : loc;
procedure_name : string;
procedure_id : string;
}
type json_trace_item = Jsonbug_t.json_trace_item
val equal_json_trace_item : json_trace_item -> json_trace_item -> bool
type info = Jsoncost_t.info = {
polynomial_version : int;
polynomial : string;
degree : int option;
hum : hum_info;
trace : json_trace_item list;
}
type item = Jsoncost_t.item = {
hash : string;
loc : loc;
procedure_name : string;
procedure_id : string;
is_on_ui_thread : bool;
exec_cost : info;
}
type report = Jsoncost_t.report
val string_of_sub_item : ?len:int -> sub_item -> string
Serialize a value of type sub_item
into a JSON string.
val read_sub_item : Yojson.Safe.lexer_state -> Stdlib.Lexing.lexbuf -> sub_item
Input JSON data of type sub_item
.
val write_json_trace_item : Stdlib.Buffer.t -> json_trace_item -> unit
Output a JSON value of type json_trace_item
.
val string_of_json_trace_item : ?len:int -> json_trace_item -> string
Serialize a value of type json_trace_item
into a JSON string.
val read_json_trace_item :
Yojson.Safe.lexer_state ->
Stdlib.Lexing.lexbuf ->
json_trace_item
Input JSON data of type json_trace_item
.
val json_trace_item_of_string : string -> json_trace_item
Deserialize JSON data of type json_trace_item
.
val string_of_hum_info : ?len:int -> hum_info -> string
Serialize a value of type hum_info
into a JSON string.
val read_hum_info : Yojson.Safe.lexer_state -> Stdlib.Lexing.lexbuf -> hum_info
Input JSON data of type hum_info
.
val read_info : Yojson.Safe.lexer_state -> Stdlib.Lexing.lexbuf -> info
Input JSON data of type info
.
val read_item : Yojson.Safe.lexer_state -> Stdlib.Lexing.lexbuf -> item
Input JSON data of type item
.
val string_of_report : ?len:int -> report -> string
Serialize a value of type report
into a JSON string.