41 lines
928 B
Diff
41 lines
928 B
Diff
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
|
|
|