diff --git a/ocaml/idl/datamodel.ml b/ocaml/idl/datamodel.ml index bb179025c92..152283802f3 100644 --- a/ocaml/idl/datamodel.ml +++ b/ocaml/idl/datamodel.ml @@ -3231,7 +3231,12 @@ module VM_metrics = struct ~ty:Bool ~qualifier:DynamicRO "nomigrate" "VM is immobile and can't migrate between hosts" ~persist:false - ; field ~lifecycle:[Published, rel_jura, ""] ~default_value:(Some (VEnum "unspecified")) + ; field + ~lifecycle:[ + Prototyped, rel_jura, "Not yet implemented (for future use)"; + Published, rel_kolkata, "This field now contains valid data" + ] + ~default_value:(Some (VEnum "unspecified")) ~ty:Datamodel_vm.domain_type ~qualifier:DynamicRO "current_domain_type" "The current domain type of the VM (for running,\ suspended, or paused VMs). The last-known domain type for halted VMs." diff --git a/ocaml/idl/datamodel_vm.ml b/ocaml/idl/datamodel_vm.ml index 3f142f9eef4..fd2126bc7c0 100644 --- a/ocaml/idl/datamodel_vm.ml +++ b/ocaml/idl/datamodel_vm.ml @@ -1394,7 +1394,12 @@ let set_HVM_boot_policy = call ~flags:[`Session] field ~qualifier:DynamicRO ~ty:Bool ~lifecycle:[Published, rel_ely, ""] ~default_value:(Some (VBool false)) "requires_reboot" "Indicates whether a VM requires a reboot in order to update its configuration, e.g. its memory allocation."; field ~qualifier:StaticRO ~ty:String ~in_product_since:rel_ely ~default_value:(Some (VString "")) "reference_label" "Textual reference to the template used to create a VM. This can be used by clients in need of an immutable reference to the template since the latter's uuid and name_label may change, for example, after a package installation or upgrade."; - field ~qualifier:StaticRO ~ty:domain_type ~lifecycle:[Published, rel_jura, ""] ~default_value:(Some (VEnum "unspecified")) "domain_type" "The type of domain that will be created when the VM is started"; + field ~qualifier:StaticRO ~ty:domain_type + ~lifecycle:[ + Prototyped, rel_jura, "Internal-only field; not yet in the public API"; + Published, rel_kolkata, "The field is now valid" + ] + ~default_value:(Some (VEnum "unspecified")) "domain_type" "The type of domain that will be created when the VM is started"; ]) ()