sig
  type identity = { ty : string option; name : string option; }
  type t = Libvirt.Event.Graphics_subject.identity list
  val to_string : Libvirt.Event.Graphics_subject.t -> string
end