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 ...@@ -20,6 +20,7 @@ let string_of_state = function
| D.InfoShutdown -> "shutdown" | D.InfoShutdown -> "shutdown"
| D.InfoShutoff -> "shutoff" | D.InfoShutoff -> "shutoff"
| D.InfoCrashed -> "crashed" | D.InfoCrashed -> "crashed"
| D.InfoPMSuspended -> "pm suspended"
let printd dom fmt = let printd dom fmt =
let prefix dom = let prefix dom =
......
...@@ -18,6 +18,7 @@ let string_of_state = function ...@@ -18,6 +18,7 @@ let string_of_state = function
| D.InfoShutdown -> "shutdown" | D.InfoShutdown -> "shutdown"
| D.InfoShutoff -> "shutoff" | D.InfoShutoff -> "shutoff"
| D.InfoCrashed -> "crashed" | D.InfoCrashed -> "crashed"
| D.InfoPMSuspended -> "pm suspended"
let () = let () =
try try
......
...@@ -556,7 +556,7 @@ struct ...@@ -556,7 +556,7 @@ struct
type state = type state =
| InfoNoState | InfoRunning | InfoBlocked | InfoPaused | InfoNoState | InfoRunning | InfoBlocked | InfoPaused
| InfoShutdown | InfoShutoff | InfoCrashed | InfoShutdown | InfoShutoff | InfoCrashed | InfoPMSuspended
type info = { type info = {
state : state; state : state;
...@@ -1560,7 +1560,7 @@ end ...@@ -1560,7 +1560,7 @@ end
module Pool = module Pool =
struct struct
type 'rw t 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_build_flags = New | Repair | Resize
type pool_delete_flags = Normal | Zeroed type pool_delete_flags = Normal | Zeroed
type pool_info = { type pool_info = {
...@@ -1597,7 +1597,7 @@ end ...@@ -1597,7 +1597,7 @@ end
module Volume = module Volume =
struct struct
type 'rw t 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_delete_flags = Normal | Zeroed
type vol_info = { type vol_info = {
typ : vol_type; typ : vol_type;
......
...@@ -458,7 +458,7 @@ sig ...@@ -458,7 +458,7 @@ sig
type state = type state =
| InfoNoState | InfoRunning | InfoBlocked | InfoPaused | InfoNoState | InfoRunning | InfoBlocked | InfoPaused
| InfoShutdown | InfoShutoff | InfoCrashed | InfoShutdown | InfoShutoff | InfoCrashed | InfoPMSuspended
type info = { type info = {
state : state; (** running state *) state : state; (** running state *)
...@@ -1149,7 +1149,7 @@ sig ...@@ -1149,7 +1149,7 @@ sig
type 'rw t type 'rw t
(** Storage pool handle. *) (** Storage pool handle. *)
type pool_state = Inactive | Building | Running | Degraded type pool_state = Inactive | Building | Running | Degraded | Inaccessible
(** State of the storage pool. *) (** State of the storage pool. *)
type pool_build_flags = New | Repair | Resize type pool_build_flags = New | Repair | Resize
...@@ -1228,7 +1228,7 @@ sig ...@@ -1228,7 +1228,7 @@ sig
type 'rw t type 'rw t
(** Storage volume handle. *) (** Storage volume handle. *)
type vol_type = File | Block type vol_type = File | Block | Dir | Network | NetDir | Ploop
(** Type of a storage volume. *) (** Type of a storage volume. *)
type vol_delete_flags = Normal | Zeroed 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