improvements in clients

after all the refactoring

src/client-cohttp-lwt/dune

@@ -6,12 +6,15 @@
   (pps lwt_ppx))
  (libraries
   (re_export opentelemetry)
+  (re_export opentelemetry-lwt)
   (re_export opentelemetry-client)
-  opentelemetry-client.lwt
+  (re_export opentelemetry-client.lwt)
   (re_export lwt)
+  (re_export lwt.unix)
   (re_export cohttp-lwt)
   (re_export cohttp-lwt-unix)
   (re_export cohttp)
+  (re_export unix)
   uri
   threads
   pbrt

src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml

@@ -120,8 +120,8 @@ let create_exporter ?(config = Config.make ()) () =
 let create_backend = create_exporter
 
 let setup_ ?config () : unit =
-  let backend = create_backend ?config () in
-  Main_exporter.set backend;
+  let exp = create_exporter ?config () in
+  Main_exporter.set exp;
   ()
 
 let setup ?config ?(enable = true) () = if enable then setup_ ?config ()

src/client-ocurl-lwt/opentelemetry_client_ocurl_lwt.ml

@@ -91,7 +91,7 @@ let create_exporter ?(config = Config.make ()) () =
 let create_backend = create_exporter
 
 let setup_ ?config () : Exporter.t =
-  let exp = create_backend ?config () in
+  let exp = create_exporter ?config () in
   Main_exporter.set exp;
   exp
 
@@ -114,11 +114,11 @@ let with_setup ?(after_shutdown = ignore) ?(config = Config.make ())
     Lwt.catch
       (fun () ->
         let* res = f () in
-        let+ () = remove_backend () in
+        let+ () = remove_exporter () in
         after_shutdown exp;
         res)
       (fun exn ->
-        let* () = remove_backend () in
+        let* () = remove_exporter () in
         after_shutdown exp;
         Lwt.reraise exn)
   else

src/client-ocurl/dune

@@ -6,6 +6,7 @@
   opentelemetry.atomic
   (re_export opentelemetry-client)
   (re_export curl)
+  unix
   pbrt
   threads
   mtime

src/lwt/dune

@@ -4,4 +4,6 @@
  (synopsis "Lwt frontend for opentelemetry")
  (preprocess
   (pps lwt_ppx))
- (libraries lwt opentelemetry))
+ (libraries
+  (re_export lwt)
+  (re_export opentelemetry)))