sig type t = [ `Disk | `Memory | `Unknown of int ] val to_string : Libvirt.Event.PM_suspended.t -> string end