From 24a461715d5bce47f63cb0097606fc336230589f Mon Sep 17 00:00:00 2001 From: Stephane Glondu 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 + +Suspended by guest power management. + =back =item B