Skip to content

Commit

Permalink
Merge pull request #2729 from zli/CA-216934
Browse files Browse the repository at this point in the history
CA-216934: forward name_label/description setting to the right hosts
  • Loading branch information
lindig authored Aug 12, 2016
2 parents c233afc + 44b79c7 commit 8ad77ec
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions ocaml/xapi/message_forwarding.ml
Original file line number Diff line number Diff line change
Expand Up @@ -3140,12 +3140,16 @@ module Forward = functor(Local: Custom_actions.CUSTOM_ACTIONS) -> struct
let set_name_label ~__context ~sr ~value =
info "SR.set_name_label: SR = '%s' name-label = '%s'"
(sr_uuid ~__context sr) value;
Local.SR.set_name_label ~__context ~sr ~value
let local_fn = Local.SR.set_name_label ~sr ~value in
forward_sr_op ~local_fn ~__context ~self:sr
(fun session_id rpc -> Client.SR.set_name_label rpc session_id sr value)

let set_name_description ~__context ~sr ~value =
info "SR.set_name_description: SR = '%s' name-description = '%s'"
(sr_uuid ~__context sr) value;
Local.SR.set_name_description ~__context ~sr ~value
let local_fn = Local.SR.set_name_description ~sr ~value in
forward_sr_op ~local_fn ~__context ~self:sr
(fun session_id rpc -> Client.SR.set_name_description rpc session_id sr value)

let assert_can_host_ha_statefile ~__context ~sr =
info "SR.assert_can_host_ha_statefile: SR = '%s'" (sr_uuid ~__context sr);
Expand Down

0 comments on commit 8ad77ec

Please sign in to comment.