simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-11 04:58:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

otel-cohttp-lwt: simplify cleanup

Browse source
This commit is contained in:
Simon Cruanes 2025-12-17 15:48:20 -05:00
parent c9f5a27b22
commit 46960e2021
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -135,16 +135,8 @@ let remove_backend = remove_exporter
let with_setup ?(config = Config.make ()) ?(enable = true) () f : _ Lwt.t = let with_setup ?(config = Config.make ()) ?(enable = true) () f : _ Lwt.t =
if enable then ( if enable then (
let open Lwt.Syntax in
setup_ ~config (); setup_ ~config ();
Lwt.catch Lwt.finalize f remove_exporter
(fun () ->
let* res = f () in
let+ () = remove_exporter () in
res)
(fun exn ->
let* () = remove_exporter () in
Lwt.reraise exn)
) else ) else
f () f ()