local allocator: avoid printing 'sleeping for 5s' or similar

This will be less interesting than the metadata tracing will be.

Signed-off-by: David Scott <[email protected]>

Author: David Scott

xenvm-local-allocator/local_allocator.ml

@@ -28,7 +28,6 @@ let rec try_forever msg f =
   >>= function
   | `Ok x -> return (`Ok x)
   | `Error `Retry ->
-    debug "%s: retrying after 5s" msg;
     Lwt_unix.sleep 5.
     >>= fun () ->
     try_forever msg f
@@ -85,7 +84,6 @@ module FromLVM = struct
         >>= function
         | `Suspended -> return ()
         | `Running ->
-          debug "FromLVM.suspend got `Running; sleeping";
           Lwt_unix.sleep 5.
           >>= fun () ->
           wait () in
@@ -99,7 +97,6 @@ module FromLVM = struct
         fatal_error "reading state of FromLVM" (R.Consumer.state t)
         >>= function
         | `Suspended ->
-          debug "FromLVM.resume got `Suspended; sleeping";
           Lwt_unix.sleep 5.
           >>= fun () ->
           wait ()
@@ -122,15 +119,13 @@ module ToLVM = struct
     >>= function
     | `Ok x -> return x
     | _ ->
-      debug "ToLVM.attach got `Error; sleeping";
       Lwt_unix.sleep 5.
       >>= fun () ->
       attach ~disk ()
   let state t =
     fatal_error "querying ToLVM state" (R.Producer.state t)
   let rec push t item = R.Producer.push ~t ~item () >>= function
   | `Error (`Retry | `Suspended) ->
-    debug "ToLVM.push got `Error; sleeping";
     Lwt_unix.sleep 5.
     >>= fun () ->
     push t item
@@ -216,7 +211,6 @@ module FreePool = struct
         >>= fun (pos, ts) ->
         let open FreeAllocation in
         ( if ts = [] then begin
-            debug "No free blocks, sleeping for 5s";
             Lwt_unix.sleep 5.
           end else return ()
         ) >>= fun () ->