# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1259595428 0
# Node ID e24ebc4eae4bc1f411a0391ece4509733f296cf9
# Parent  290db74fb2539851f8b8d595b484796c2cfc358b
CA-35165: Reduce the amount of log spam created by the xenstore watching code.

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 290db74fb253 -r e24ebc4eae4b ocaml/xenops/watch.ml
--- a/ocaml/xenops/watch.ml	Mon Nov 30 15:37:07 2009 +0000
+++ b/ocaml/xenops/watch.ml	Mon Nov 30 15:37:08 2009 +0000
@@ -45,7 +45,6 @@
   let time_taken () = Unix.gettimeofday () -. start_time in
 
   let callback (path, _) = 
-    debug "watch: fired on %s" path; 
     match x.evaluate ~xs with
     | KeepWaiting -> false
     | Result x -> result := Some x; true in
@@ -60,7 +59,6 @@
     else Xs.monitor_paths xs (List.map (fun path -> path, "X") x.paths) timeout callback;
       begin match !result with
       | Some x -> 
-	  debug "watch: Successfully finished watching xenstore after %f seconds" (time_taken ());
 	  x
       | None -> 
 	  (* should never happen *)