X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Flist_domains.ml;h=1d73b6914bcbd532f2d9601371f49379edb85a91;hb=e257cbcab6e1f20abc7bc4f9dfeb6e996cab4fc4;hp=e8809b401965018dbb79d635bb78fa48504538f6;hpb=6f10b99323ba640d53590695b29fa793e2f5e882;p=ocaml-libvirt.git

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
index e8809b4..1d73b69 100644
--- 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