From: Stephane Glondu <steph@glondu.net>
Date: Wed, 21 Aug 2019 15:24:47 +0000 (+0200)
Subject: libvirt: Handle VIR_DOMAIN_PMSUSPENDED state.
X-Git-Tag: v1.1.0~6
X-Git-Url: http://git.annexia.org/?p=virt-top.git;a=commitdiff_plain;h=24a461715d5bce47f63cb0097606fc336230589f

libvirt: Handle VIR_DOMAIN_PMSUSPENDED state.

Fixes FTBFS with ocaml-libvirt 0.6.1.5.

RWMJ: Added documentation and changed the letter to 'M'.
---

diff --git a/src/screen.ml b/src/screen.ml
index 0d847a2..8a66ba6 100644
--- a/src/screen.ml
+++ b/src/screen.ml
@@ -50,3 +50,4 @@ let show_state = function
   | D.InfoShutdown -> 'D'
   | D.InfoShutoff -> 'O'
   | D.InfoCrashed -> 'X'
+  | D.InfoPMSuspended -> 'M'
diff --git a/src/virt-top.pod b/src/virt-top.pod
index 4d81608..76ad3f9 100644
--- a/src/virt-top.pod
+++ b/src/virt-top.pod
@@ -492,6 +492,10 @@ Shutdown.
 
 Crashed.
 
+=item B<M>
+
+Suspended by guest power management.
+
 =back
 
 =item B<TIME>