sig
  type family = [ `Ipv4 | `Ipv6 | `Unix | `Unknown of int ]
  type t = {
    family : Libvirt.Event.Graphics_address.family;
    node : string option;
    service : string option;
  }
  val to_string : Libvirt.Event.Graphics_address.t -> string
end