Skip to content

Remove the VM.set_suspend_SR redundant definitions #27

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
1 commit merged into from
Feb 22, 2011
Merged

Remove the VM.set_suspend_SR redundant definitions #27

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 0 additions & 11 deletions ocaml/idl/datamodel.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1955,16 +1955,6 @@ let vm_set_protection_policy = call
~allowed_roles:_R_POOL_OP
()

let vm_set_suspend_SR = call
~name:"set_suspend_SR"
~in_oss_since:None
~in_product_since:rel_boston
~doc:"Set the SR to use when suspending this VM"
~params:[Ref _vm, "vm", "The VM to modify";
Ref _sr, "sr", "The SR to use when suspending this VM"]
~allowed_roles:_R_POOL_OP
()

(* ------------------------------------------------------------------------------------------------------------
Host Management
------------------------------------------------------------------------------------------------------------ *)
Expand Down Expand Up @@ -5889,7 +5879,6 @@ let vm =
vm_retrieve_wlb_recommendations;
vm_copy_bios_strings;
vm_set_protection_policy;
vm_set_suspend_SR;
]
~contents:
([ uid _vm;
Expand Down
4 changes: 0 additions & 4 deletions ocaml/xapi/message_forwarding.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1748,10 +1748,6 @@ module Forward = functor(Local: Custom_actions.CUSTOM_ACTIONS) -> struct
info "VM.set_protection_policy: self = '%s'; " (vm_uuid ~__context self);
Local.VM.set_protection_policy ~__context ~self ~value

let set_suspend_SR ~__context ~vm ~sr =
info "VM.set_suspend_SR: VM = '%s'; SR ='%s'" (vm_uuid ~__context vm) (sr_uuid ~__context sr);
Local.VM.set_suspend_SR ~__context ~vm ~sr

end

module VM_metrics = struct
Expand Down
3 changes: 0 additions & 3 deletions ocaml/xapi/xapi_vm.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1234,6 +1234,3 @@ let set_protection_policy ~__context ~self ~value =
(if (value <> Ref.null) then Xapi_vmpp.assert_licensed ~__context);
Db.VM.set_protection_policy ~__context ~self ~value
)

let set_suspend_SR ~__context ~vm ~sr =
Db.VM.set_suspend_SR ~__context ~self:vm ~value:sr
1 change: 0 additions & 1 deletion ocaml/xapi/xapi_vm.mli
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -266,4 +266,3 @@ val copy_bios_strings :
* had already been set. *)

val set_protection_policy : __context:Context.t -> self:API.ref_VM -> value:API.ref_VMPP -> unit
val set_suspend_SR : __context:Context.t -> vm:API.ref_VM -> sr:API.ref_SR -> unit