Skip to content
This repository
Browse code

Add some comments.

Signed-off-by: John Else <john.else@citrix.com>
  • Loading branch information...
commit ab37934a1cb6a4c9376967432a1df41f0ab74bea 1 parent d542e65
John Else authored November 06, 2012

Showing 1 changed file with 6 additions and 0 deletions. Show diff stats Hide diff stats

  1. 6  ocaml/xapi/cancel_tasks.ml
6  ocaml/xapi/cancel_tasks.ml
@@ -32,18 +32,22 @@ let update_all_allowed_operations ~__context =
32 32
 	and all_srs = Db.SR.get_all ~__context
33 33
 	and all_pbds = Db.PBD.get_all ~__context
34 34
 	and all_hosts = Db.Host.get_all ~__context in
  35
+	(* VM *)
35 36
 	time_this "Cancel_tasks.update_all_allowed_operations: VM" (fun () ->
36 37
 		debug "Updating allowed operations: VM";
37 38
 		List.iter (safe_wrapper "allowed_ops - VMs" (fun self -> Xapi_vm_lifecycle.update_allowed_operations ~__context ~self)) all_vms;
38 39
 		debug "Finished updating allowed operations: VM");
  40
+	(* VBD *)
39 41
 	time_this "Cancel_tasks.update_all_allowed_operations: VBD" (fun () ->
40 42
 		debug "Updating allowed operations: VBD";
41 43
 		List.iter (safe_wrapper "allowed_ops - VBDs" (fun self -> Xapi_vbd_helpers.update_allowed_operations ~__context ~self)) all_vbds;
42 44
 		debug "Finished updating allowed operations: VBD");
  45
+	(* VIF *)
43 46
 	time_this "Cancel_tasks.update_all_allowed_operations: VIF" (fun () ->
44 47
 		debug "Updating allowed operations: VIF";
45 48
 		List.iter (safe_wrapper "allowed_ops - VIFs" (fun self -> Xapi_vif_helpers.update_allowed_operations ~__context ~self)) all_vifs;
46 49
 		debug "Finished updating allowed operations: VIF");
  50
+	(* VDI *)
47 51
 	time_this "Cancel_tasks.update_all_allowed_operations: VDI" (fun () ->
48 52
 		debug "Updating allowed operations: VDI";
49 53
 		let sr_records = List.map (fun sr -> (sr, Db.SR.get_record_internal ~__context ~self:sr)) all_srs in
@@ -52,12 +56,14 @@ let update_all_allowed_operations ~__context =
52 56
 		List.iter (safe_wrapper "allowed_ops - VDIs"
53 57
 			(fun self -> Xapi_vdi.update_allowed_operations_internal ~__context ~self ~sr_records ~pbd_records ~vbd_records)) all_vdis;
54 58
 		debug "Finished updating allowed operations: VDI");
  59
+	(* SR *)
55 60
 	time_this "Cancel_tasks.update_all_allowed_operations: SR" (fun () ->
56 61
 		debug "Updating allowed operations: SR";
57 62
 		List.iter (safe_wrapper "allowed_ops" (fun self ->
58 63
 			Db.SR.set_current_operations ~__context ~self ~value:[];
59 64
 			Xapi_sr_operations.update_allowed_operations ~__context ~self)) all_srs;
60 65
 		debug "Finished updating allowed operations: SR");
  66
+	(* Host *)
61 67
 	time_this "Cancel_tasks.update_all_allowed_operations: host" (fun () ->
62 68
 		debug "Updating allowed operations: host";
63 69
 		List.iter (safe_wrapper "allowed_ops - host" (fun self -> Xapi_host_helpers.update_allowed_operations ~__context ~self)) all_hosts;

0 notes on commit ab37934

Please sign in to comment.
Something went wrong with that request. Please try again.