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

trace: expose the OTEL span

Browse source
This commit is contained in:
Simon Cruanes 2026-02-19 15:29:56 -05:00
parent 4387bf8287
commit cb53b54b00
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/trace/opentelemetry_trace.ml
View file

@ -1,6 +1,8 @@
open Common_ open Common_
module Extensions = struct module Extensions = struct
type Otrace.span += Span_otel of OTEL.Span.t
type Otrace.extension_event += type Otrace.extension_event +=
| Ev_link_span of Otrace.span * OTEL.Span_ctx.t | Ev_link_span of Otrace.span * OTEL.Span_ctx.t
| Ev_record_exn of { | Ev_record_exn of {
@ -19,10 +21,6 @@ end
open Extensions open Extensions
open struct
type Otrace.span += Span_otel of OTEL.Span.t
end
open struct open struct
type state = { type state = {
clock: Opentelemetry_core.Clock.t; clock: Opentelemetry_core.Clock.t;

3
src/trace/opentelemetry_trace.mli
View file

@ -21,6 +21,9 @@ module Otrace := Trace_core
(** The extension events for {!Trace_core}. *) (** The extension events for {!Trace_core}. *)
module Extensions : sig module Extensions : sig
type Otrace.span +=
| Span_otel of OTEL.Span.t (** The type of span used for OTEL *)
type Otrace.extension_event += type Otrace.extension_event +=
| Ev_link_span of Otrace.span * OTEL.Span_ctx.t | Ev_link_span of Otrace.span * OTEL.Span_ctx.t
(** Link the given span to the given context. The context isn't the (** Link the given span to the given context. The context isn't the