Server (opentelemetry-cohttp-lwt.Opentelemetry_cohttp

val trace : 
  ?service_name:string ->
  ?attrs:Otel.Span.key_value list ->
  ('conn -> Cohttp.Request.t -> 'body -> (Cohttp.Response.t * 'body) Lwt.t) ->
  'conn ->
  Cohttp.Request.t ->
  'body ->
  (Cohttp.Response.t * 'body) Lwt.t

Trace requests to a Cohttp server.

Use it like this:

  let my_server callback =
    let callback_traced =
      Opentelemetry_cohttp_lwt.Server.trace ~service_name:"my-service"
        (fun _scope -> callback)
    in
    Cohttp_lwt_unix.Server.create
      ~mode:(`TCP (`Port 8080))
      (Server.make () ~callback:callback_traced)

val with_ : 
  ?trace_state:string ->
  ?service_name:string ->
  ?attrs:Otel.Span.key_value list ->
  ?kind:Otel.Span.kind ->
  ?links:Otel.Span_link.t list ->
  string ->
  Cohttp.Request.t ->
  (Cohttp.Request.t -> 'a Lwt.t) ->
  'a Lwt.t

Trace a new internal span.

Identical to Opentelemetry_lwt.Trace.with_, but fetches/stores the trace scope in the x-ocaml-otel-traceparent header in the request for convenience.

val get_trace_context : 
  ?from:[ `Internal | `External ] ->
  Cohttp.Request.t ->
  Otel.Scope.t option

Get the tracing scope from the custom x-ocaml-otel-traceparent header added by trace and with_.

val set_trace_context : Otel.Scope.t -> Cohttp.Request.t -> Cohttp.Request.t

Set the tracing scope in the custom x-ocaml-otel-traceparent header used by trace and with_.

val remove_trace_context : Cohttp.Request.t -> Cohttp.Request.t

Strip the custom x-ocaml-otel-traceparent header added by trace and with_.