From 46960e202152c43a0a12e023efbb5d7bc81b5ed8 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 17 Dec 2025 15:48:20 -0500
Subject: [PATCH] otel-cohttp-lwt: simplify cleanup

---
 .../opentelemetry_client_cohttp_lwt.ml                 | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml
index 936b89d9..3a1819ff 100644
--- a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml
+++ b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml
@@ -135,16 +135,8 @@ let remove_backend = remove_exporter
 
 let with_setup ?(config = Config.make ()) ?(enable = true) () f : _ Lwt.t =
   if enable then (
-    let open Lwt.Syntax in
     setup_ ~config ();
 
-    Lwt.catch
-      (fun () ->
-        let* res = f () in
-        let+ () = remove_exporter () in
-        res)
-      (fun exn ->
-        let* () = remove_exporter () in
-        Lwt.reraise exn)
+    Lwt.finalize f remove_exporter
   ) else
     f ()