Synchronize few states/types with libvirt 4.6.0

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

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
index e8809b4..1d73b69 100644 (file)
--- a/examples/list_domains.ml
+++ b/examples/list_domains.ml
@@ -18,6 +18,7 @@ let string_of_state = function
   | D.InfoShutdown -> "shutdown"
   | D.InfoShutoff -> "shutoff"
   | D.InfoCrashed -> "crashed"
+  | D.InfoPMSuspended -> "pm suspended"
 
 let () =
   try