type t = {
  id : int64;
  name : string;
  system_name : string;
  filename : string;
  start_line : int64;
}

let equal a b =
  Int64.equal a.id b.id && String.equal a.name b.name
  && String.equal a.system_name b.system_name
  && String.equal a.filename b.filename
  && Int64.equal a.start_line b.start_line

let pp ppf t = Fmt.pf ppf "#%Ld %s (%s:%Ld)" t.id t.name t.filename t.start_line