# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1259595839 0
# Node ID 4fb239024d9fead6e215dbaf046f8bb89030892d
# Parent 79d2da9328135ea8875e8871505a23193ae0f944
CA-31529: Remove the concept of an 'interesting_device_event' now that all
events are 'interesting' (the predicate 'interesting_device_event' = \_.true)
Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>
diff -r 79d2da932813 -r 4fb239024d9f ocaml/xapi/events.ml
--- a/ocaml/xapi/events.ml Mon Nov 30 15:43:58 2009 +0000
+++ b/ocaml/xapi/events.ml Mon Nov 30 15:43:59 2009 +0000
@@ -398,23 +398,10 @@
|| deferred_queue description deferred_work_item
in ()
-(* Used to pre-filter the device events we care about from lots of
uninteresting ones *)
-let interesting_device_event = function
- | Xal.HotplugChanged(_, _, _)
- | Xal.DevShutdownDone(_, _)
- | Xal.DevThread(_, _)
- | Xal.DevEject(_)
- | Xal.ChangeRtc(_, _)
- | Xal.Message(_, _, _, _)
- | Xal.ChangeUncooperative _ -> true
- | _ -> false
-
let callback_devices ctx domid dev_event =
let dev_event_string = Xal.string_of_dev_event dev_event in
- let interesting = interesting_device_event dev_event in
- debug "VM (domid: %d) %s device_event = %s" domid (if interesting then
"interesting" else "uninteresting") dev_event_string;
- if interesting
- then Helpers.log_exn_continue (Printf.sprintf "callback_devices (domid: %d)
device_event = %s" domid dev_event_string)
+ debug "VM (domid: %d) device_event = %s" domid dev_event_string;
+ Helpers.log_exn_continue (Printf.sprintf "callback_devices (domid: %d)
device_event = %s" domid dev_event_string)
(fun () ->
Server_helpers.exec_with_new_task (Printf.sprintf "VM (domid: %d)
device_event = %s" domid dev_event_string)
(fun __context ->
1 file changed, 2 insertions(+), 15 deletions(-)
ocaml/xapi/events.ml | 17 ++---------------
xen-api.hg-9.patch
Description: Text Data
_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api
|
Home