fix verbose mask

OCamlPro · Dec 4, 2024 · f805330 · f805330
1 parent 0f3c123
commit f805330
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/server/ezAPIServerUtils.ml b/src/server/ezAPIServerUtils.ml
@@ -48,17 +48,20 @@ let set_verbose i = verbose := i
 let pp_time () =
   GMTime.(date_of_tm @@ Unix.gmtime @@ time ())
 
+let rec simple_power x n =
+  if n = 0 then 1 else  x * (simple_power x (n-1))
+
 let debug ?(v=0) fmt =
   let mask_version = !verbose >= 8 in
   if (not mask_version && !verbose > v) ||
-     (mask_version && (v = 0 || ((!verbose/8) land v) <> 0))  then
+     (mask_version && ((!verbose/8) land (simple_power 2 v)) <> 0)  then
     EzDebug.printf fmt
   else Printf.ifprintf () fmt
 
 let debugf ?(v=0) f =
   let mask_version = !verbose >= 8 in
   if (not mask_version && !verbose > v) ||
-     (mask_version && ((!verbose/8) land v) <> 0) then f ()
+     (mask_version && ((!verbose/8) land (simple_power 2 v)) <> 0) then f ()
 
 (** Register Handler *)