simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add get_default_level()

Browse source
This commit is contained in:
Simon Cruanes 2024-03-05 15:27:53 -05:00
parent 37f8a237ff
commit b52f15068d
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/core/trace_core.ml
View file

@ -24,6 +24,7 @@ let[@inline] enabled () =
| None -> false | None -> false
| Some _ -> true | Some _ -> true
let[@inline] get_default_level () = A.get default_level_
let[@inline] set_default_level l = A.set default_level_ l let[@inline] set_default_level l = A.set default_level_ l
let[@inline] set_current_level l = A.set current_level_ l let[@inline] set_current_level l = A.set current_level_ l
let[@inline] get_current_level () = A.get current_level_ let[@inline] get_current_level () = A.get current_level_

7
src/core/trace_core.mli
View file

@ -22,9 +22,14 @@ val enabled : unit -> bool
This is fast, so that the traced program can check it before creating This is fast, so that the traced program can check it before creating
any span or message. *) 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 val set_default_level : Level.t -> unit
(** Set level used for spans that do not specify it. The default (** 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 : val with_span :
?level:Level.t -> ?level:Level.t ->