simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-08 03:47:59 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat integration/logs: update paths

Browse source
This commit is contained in:
Simon Cruanes 2025-12-03 13:29:12 -05:00
parent 8692976f3e
commit d5436d953f
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/integrations/logs/opentelemetry_logs.ml
View file

@ -11,13 +11,13 @@ module Otel = Opentelemetry
(* Levels *)
(*****************************************************************************)
(* Convert log level to Otel severity *)
let log_level_to_severity (level : Logs.level) : Otel.Logs.severity =
let log_level_to_severity (level : Logs.level) : Otel.Log_record.severity =
match level with
| Logs.App -> Otel.Logs.Severity_number_info (* like info, but less severe *)
| Logs.Info -> Otel.Logs.Severity_number_info2
| Logs.Error -> Otel.Logs.Severity_number_error
| Logs.Warning -> Otel.Logs.Severity_number_warn
| Logs.Debug -> Otel.Logs.Severity_number_debug
| Logs.App -> Severity_number_info (* like info, but less severe *)
| Logs.Info -> Severity_number_info2
| Logs.Error -> Severity_number_error
| Logs.Warning -> Severity_number_warn
| Logs.Debug -> Severity_number_debug
(*****************************************************************************)
(* Logs Util *)
@ -44,9 +44,12 @@ let log ?service_name ?(attrs = []) ?(scope = Otel.Scope.get_ambient_scope ())
Option.map (fun (scope : Otel.Scope.t) -> scope.trace_id) scope
in
let severity = log_level_to_severity level in
let log = Otel.Logs.make_str ~severity ~log_level ?trace_id ?span_id msg in
let log =
Otel.Log_record.make_str ~severity ~log_level ?trace_id ?span_id msg
in
(* Noop if no backend is set *)
Otel.Logs.emit ?service_name ~attrs [ log ]
(* TODO: be more explicit *)
Otel.Logger.emit ?service_name ~attrs [ log ]
let otel_reporter ?service_name ?(attributes = []) () : Logs.reporter =
let report src level ~over k msgf =