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