(style lwt ppx dep) Use try%lwt over Lwt.catch

src/client-cohttp-lwt/common_.ml

@@ -1,4 +1,3 @@
-open Lwt.Syntax
 module Atomic = Opentelemetry_atomic.Atomic
 
 let[@inline] ( let@ ) f x = f x

src/client-cohttp-lwt/dune

@@ -2,5 +2,6 @@
  (name opentelemetry_client_cohttp_lwt)
  (public_name opentelemetry-client-cohttp-lwt)
  (synopsis "Opentelemetry collector using cohttp+lwt+unix")
+ (preprocess (pps lwt_ppx))
  (libraries opentelemetry lwt cohttp-lwt cohttp-lwt-unix pbrt mtime
    mtime.clock.os))

src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml

@@ -105,11 +105,11 @@ end = struct
     let body = Cohttp_lwt.Body.of_string bod in
 
     let* r =
-      Lwt.catch
+      try%lwt
-        (fun () ->
+        let+ r = Httpc.post ~headers ~body uri in
-          let+ r = Httpc.post ~headers ~body uri in
+        Ok r
-          Ok r)
+      with e ->
-        (fun e -> Lwt.return @@ Error e)
+        Lwt.return @@ Error e
     in
     match r with
     | Error e ->

src/lwt/dune

@@ -2,4 +2,6 @@
  (name opentelemetry_lwt)
  (public_name opentelemetry-lwt)
  (synopsis "Lwt frontend for opentelemetry")
+ (preprocess
+  (pps lwt_ppx))
  (libraries lwt opentelemetry))

src/lwt/opentelemetry_lwt.ml

@@ -47,14 +47,13 @@ module Trace = struct
       in
       emit ?service_name [ span ]
     in
-    Lwt.catch
+    try%lwt
-      (fun () ->
+      let* x = f scope in
-        let* x = f scope in
+      let () = finally (Ok ()) in
-        let () = finally (Ok ()) in
+      Lwt.return x
-        Lwt.return x)
+    with e ->
-      (fun e ->
+      let () = finally (Error (Printexc.to_string e)) in
-        let () = finally (Error (Printexc.to_string e)) in
+      Lwt.fail e
-        Lwt.fail e)
 end
 
 module Metrics = struct