fixup! Add more logging to rate limit

Signed-off-by: Christian Pardillo Laursen <christian.pardillolaursen@citrix.com>

Author: cplaursen

ocaml/libs/rate-limit/rate_limit.ml

@@ -49,7 +49,7 @@ let rec worker_loop ~bucket ~process_queue ~process_queue_lock
   match item_opt with
   | None ->
       (* Queue is empty only when termination was signalled *)
-      ()
+      D.debug "%s: queue empty in deleted rate limiter; exiting" __FUNCTION__
   | Some (cost, callback) ->
       process_item cost callback ;
       worker_loop ~bucket ~process_queue ~process_queue_lock ~worker_thread_cond
@@ -141,5 +141,6 @@ let submit_sync bucket_data ~callback amount =
   | None ->
       callback ()
   | Some channel ->
+      D.debug "%s: rate limiting call" __FUNCTION__ ;
       Event.sync (Event.receive channel) ;
       callback ()