Commit 0cdf6491 authored by Pino Toscano's avatar Pino Toscano Committed by Richard W.M. Jones

Synchronize few states/types with libvirt 4.6.0

Add states/types that do not require using enum values in newer libvirt
versions.
parent 0e0ebf92
......@@ -20,6 +20,7 @@ let string_of_state = function
| D.InfoShutdown -> "shutdown"
| D.InfoShutoff -> "shutoff"
| D.InfoCrashed -> "crashed"
| D.InfoPMSuspended -> "pm suspended"
let printd dom fmt =
let prefix dom =
......
......@@ -18,6 +18,7 @@ let string_of_state = function
| D.InfoShutdown -> "shutdown"
| D.InfoShutoff -> "shutoff"
| D.InfoCrashed -> "crashed"
| D.InfoPMSuspended -> "pm suspended"
let () =
try
......
......@@ -556,7 +556,7 @@ struct
type state =
| InfoNoState | InfoRunning | InfoBlocked | InfoPaused
| InfoShutdown | InfoShutoff | InfoCrashed
| InfoShutdown | InfoShutoff | InfoCrashed | InfoPMSuspended
type info = {
state : state;
......@@ -1560,7 +1560,7 @@ end
module Pool =
struct
type 'rw t
type pool_state = Inactive | Building | Running | Degraded
type pool_state = Inactive | Building | Running | Degraded | Inaccessible
type pool_build_flags = New | Repair | Resize
type pool_delete_flags = Normal | Zeroed
type pool_info = {
......@@ -1597,7 +1597,7 @@ end
module Volume =
struct
type 'rw t
type vol_type = File | Block
type vol_type = File | Block | Dir | Network | NetDir | Ploop
type vol_delete_flags = Normal | Zeroed
type vol_info = {
typ : vol_type;
......
......@@ -458,7 +458,7 @@ sig
type state =
| InfoNoState | InfoRunning | InfoBlocked | InfoPaused
| InfoShutdown | InfoShutoff | InfoCrashed
| InfoShutdown | InfoShutoff | InfoCrashed | InfoPMSuspended
type info = {
state : state; (** running state *)
......@@ -1149,7 +1149,7 @@ sig
type 'rw t
(** Storage pool handle. *)
type pool_state = Inactive | Building | Running | Degraded
type pool_state = Inactive | Building | Running | Degraded | Inaccessible
(** State of the storage pool. *)
type pool_build_flags = New | Repair | Resize
......@@ -1228,7 +1228,7 @@ sig
type 'rw t
(** Storage volume handle. *)
type vol_type = File | Block
type vol_type = File | Block | Dir | Network | NetDir | Ploop
(** Type of a storage volume. *)
type vol_delete_flags = Normal | Zeroed
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment