type tag_value_record = {
  tag : string;
  value : string;
}

type json_trace_item = {
  level : int;
  filename : string;
  line_number : int;
  description : string;
  node_tags : tag_value_record list;
}

type loc = {
  file: string;
  lnum: int;
  cnum: int;
  enum: int;
}

type jsonbug = {
  bug_class : string;
  kind : string;
  bug_type : string;
  qualifier : string;
  severity : string;
  visibility : string;
  line: int;
  column: int;
  procedure : string;
  procedure_id : string;
  procedure_start_line : int;
  file : string;
  bug_trace : json_trace_item list;
  key : int;
  qualifier_tags : tag_value_record list;
  hash : int;
  ?dotty : string option;
  ?infer_source_loc: loc option;
}

type report = jsonbug list

type json_trace = {
  trace : json_trace_item list;
}