mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-07 18:37:56 -05:00
fix: compat with lwt < 5.7
This commit is contained in:
parent
92613d8526
commit
66573bd1ac
1 changed files with 5 additions and 1 deletions
|
|
@ -8,6 +8,10 @@ module Config = Config
|
|||
open Opentelemetry
|
||||
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 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 ->
|
||||
cleanup ();
|
||||
let* () = cleanup_done in
|
||||
Lwt.reraise exn)
|
||||
reraise exn)
|
||||
else
|
||||
f ()
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue