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