Xapi_events: replace List.any+map with List.exists

Signed-off-by: Edwin Török <[email protected]>

ocaml/xapi/xapi_event.ml

@@ -73,8 +73,6 @@ module Subscription = struct
                (Api_errors.event_subscription_parse_failure, [x])
             )
 
-  let any = List.fold_left (fun acc x -> acc || x) false
-
   (** [table_matches subs tbl]: true if at least one subscription from [subs] would select some events from [tbl] *)
   let table_matches subs tbl =
     let tbl = String.lowercase_ascii tbl in
@@ -86,7 +84,7 @@ module Subscription = struct
       | Object (x, _) ->
           x = tbl
     in
-    any (List.map matches subs)
+    List.exists matches subs
 
   (** [event_matches subs ev]: true if at least one subscription from [subs] selects for specified class and object *)
   let object_matches subs ty _ref =
@@ -99,7 +97,7 @@ module Subscription = struct
       | Object (x, y) ->
           x = tbl && y = _ref
     in
-    any (List.map matches subs)
+    List.exists matches subs
 
   (** [event_matches subs ev]: true if at least one subscription from [subs] selects for event [ev] *)
   let event_matches subs ev = object_matches subs ev.ty ev.reference