Permalink
Browse files

Register only for events from tasks which we're interested in.

Signed-off-by: John Else <john.else@citrix.com>
  • Loading branch information...
1 parent 58fed3e commit 6bb057b915c3db2752dd85b80589c101df894cb4 @johnelse committed May 25, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 ocaml/xapi/xapi_vm_appliance.ml
@@ -60,7 +60,10 @@ let create_action_list ~__context start vms =
(* Return once none of the tasks have a `pending status. *)
let wait_for_all_tasks ~rpc ~session_id ~tasks =
- let classes = ["task"] in
+ let classes = List.map
+ (fun task -> Printf.sprintf "task/%s" (Ref.string_of task))
+ tasks
+ in
let timeout = 5.0 in
let rec wait ~token ~task_set =
if TaskSet.is_empty task_set then ()

0 comments on commit 6bb057b

Please sign in to comment.