From 24a461715d5bce47f63cb0097606fc336230589f Mon Sep 17 00:00:00 2001

From: Stephane Glondu <steph@glondu.net>

Date: Wed, 21 Aug 2019 17:24:47 +0200

Subject: [PATCH] libvirt: Handle VIR_DOMAIN_PMSUSPENDED state.

Fixes FTBFS with ocaml-libvirt 0.6.1.5.

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

---

 src/screen.ml    | 1 +

 src/virt-top.pod | 4 ++++

 2 files changed, 5 insertions(+)

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>

-- 

2.22.0