mask debugger for server

OCamlPro · Dec 3, 2024 · 0f3c123 · 0f3c123
1 parent ce17643
commit 0f3c123
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/server/ezAPIServerUtils.ml b/src/server/ezAPIServerUtils.ml
@@ -49,11 +49,16 @@ let pp_time () =
   GMTime.(date_of_tm @@ Unix.gmtime @@ time ())
 
 let debug ?(v=0) fmt =
-  if !verbose > v then EzDebug.printf fmt
+  let mask_version = !verbose >= 8 in
+  if (not mask_version && !verbose > v) ||
+     (mask_version && (v = 0 || ((!verbose/8) land v) <> 0))  then
+    EzDebug.printf fmt
   else Printf.ifprintf () fmt
 
 let debugf ?(v=0) f =
-  if !verbose > v then f ()
+  let mask_version = !verbose >= 8 in
+  if (not mask_version && !verbose > v) ||
+     (mask_version && ((!verbose/8) land v) <> 0) then f ()
 
 (** Register Handler *)