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

fix: compat with lwt < 5.7

Browse source
This commit is contained in:
Simon Cruanes 2025-01-31 16:50:11 -05:00
parent 92613d8526
commit 66573bd1ac
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml
View file

@ -8,6 +8,10 @@ module Config = Config
open Opentelemetry open Opentelemetry
include Common_ include Common_
external reraise : exn -> 'a = "%reraise"
(** This is equivalent to [Lwt.reraise]. We inline it here so we don't force
to use Lwt's latest version *)
let needs_gc_metrics = Atomic.make false let needs_gc_metrics = Atomic.make false
let last_gc_metrics = Atomic.make (Mtime_clock.now ()) let last_gc_metrics = Atomic.make (Mtime_clock.now ())
@ -605,6 +609,6 @@ let with_setup ?stop ?(config = Config.make ()) ?(enable = true) () f : _ Lwt.t
(fun exn -> (fun exn ->
cleanup (); cleanup ();
let* () = cleanup_done in let* () = cleanup_done in
Lwt.reraise exn) reraise exn)
else else
f () f ()