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