add get_default_level()

c-cube · Mar 5, 2024 · 4fee82b · 4fee82b
1 parent dc6eefc
commit 4fee82b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/src/core/trace_core.ml b/src/core/trace_core.ml
@@ -24,6 +24,7 @@ let[@inline] enabled () =
   | None -> false
   | Some _ -> true
 
+let[@inline] get_default_level l = A.get default_level_
 let[@inline] set_default_level l = A.set default_level_ l
 let[@inline] set_current_level l = A.set current_level_ l
 let[@inline] get_current_level () = A.get current_level_

diff --git a/src/core/trace_core.mli b/src/core/trace_core.mli
@@ -22,9 +22,14 @@ val enabled : unit -> bool
     This is fast, so that the traced program can check it before creating
     any span or message. *)
 
+val get_default_level : unit -> Level.t
+(** Current default level for spans.
+    @since NEXT_RELEASE *)
+
 val set_default_level : Level.t -> unit
 (** Set level used for spans that do not specify it. The default
-    default value is [Level.Trace] *)
+    default value is [Level.Trace].
+    @since NEXT_RELEASE *)
 
 val with_span :
   ?level:Level.t ->