diff --git a/ocaml/xapi/xapi_vbd_helpers.ml b/ocaml/xapi/xapi_vbd_helpers.ml index f6b1cc260e..a63fa6edf1 100644 --- a/ocaml/xapi/xapi_vbd_helpers.ml +++ b/ocaml/xapi/xapi_vbd_helpers.ml @@ -443,4 +443,5 @@ let copy ~__context ?vdi ~vm vbd = ~qos_algorithm_type:all.API.vBD_qos_algorithm_type ~qos_algorithm_params:all.API.vBD_qos_algorithm_params ~qos_supported_algorithms:[] ~runtime_properties:[] ~metrics ; + update_allowed_operations ~__context ~self:new_vbd ; new_vbd