simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-09 20:33:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2022-09-19 15:01:13 -04:00
parent 19c0fac8fd
commit 8d361744ec
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lwt/opentelemetry_lwt.ml
View file

@ -15,7 +15,7 @@ module Trace = struct
(** Sync span guard *) (** Sync span guard *)
let with_ ?trace_state ?service_name ?(attrs = []) ?kind ?trace_id ?parent let with_ ?trace_state ?service_name ?(attrs = []) ?kind ?trace_id ?parent
?scope ?links name (f : Trace.scope -> 'a Lwt.t) : 'a Lwt.t = ?scope ?links name (f : Scope.t -> 'a Lwt.t) : 'a Lwt.t =
let trace_id = let trace_id =
match trace_id, scope with match trace_id, scope with
| Some trace_id, _ -> trace_id | Some trace_id, _ -> trace_id