Address further PR review suggestions

Co-authored-by: Pau Ruiz Safont <[email protected]>
Signed-off-by: Andriy Sultanov <[email protected]>

ocaml/xapi-cli-server/cli_operations.ml

@@ -2928,13 +2928,7 @@ let event_wait_gen rpc session_id classname record_matches =
         (List.map (fun r -> (r.name, fun () -> safe_get_field r)))
         current_tbls
     in
-    debug "Got %d records" (List.length all_recs) ;
-    (* true if anything matches now *)
-    let find_any_match recs =
-      let ls = List.map record_matches recs in
-      List.exists Fun.id ls
-    in
-    find_any_match all_recs
+   List.exists record_matches all_recs
   in
   finally
     (fun () ->