Synchronize few states/types with libvirt 4.6.0

[ocaml-libvirt.git] / examples / domain_events.ml

diff --git a/examples/domain_events.ml b/examples/domain_events.ml
index afe686f..12ddbc1 100644 (file)
--- a/examples/domain_events.ml
+++ b/examples/domain_events.ml
@@ -20,6 +20,7 @@ let string_of_state = function
   | D.InfoShutdown -> "shutdown"
   | D.InfoShutoff -> "shutoff"
   | D.InfoCrashed -> "crashed"
+  | D.InfoPMSuspended -> "pm suspended"
 
 let printd dom fmt =
   let prefix dom =