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