sig   type action = [ `None | `Pause | `Report | `Unknown of int ]   type t = {     src_path : string option;     dev_alias : string option;     action : Libvirt.Event.Io_error.action;     reason : string option;   }   val to_string : Libvirt.Event.Io_error.t -> string end