diff --git a/src/client-cohttp-lwt/dune b/src/client-cohttp-lwt/dune index ff03a8f1..0a2b7540 100644 --- a/src/client-cohttp-lwt/dune +++ b/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 diff --git a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml b/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml index 844765e7..79034641 100644 --- a/src/client-cohttp-lwt/opentelemetry_client_cohttp_lwt.ml +++ b/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 () diff --git a/src/client-ocurl-lwt/opentelemetry_client_ocurl_lwt.ml b/src/client-ocurl-lwt/opentelemetry_client_ocurl_lwt.ml index 973fe20d..425a18a6 100644 --- a/src/client-ocurl-lwt/opentelemetry_client_ocurl_lwt.ml +++ b/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 diff --git a/src/client-ocurl/dune b/src/client-ocurl/dune index cc685dc9..980a709c 100644 --- a/src/client-ocurl/dune +++ b/src/client-ocurl/dune @@ -6,6 +6,7 @@ opentelemetry.atomic (re_export opentelemetry-client) (re_export curl) + unix pbrt threads mtime diff --git a/src/lwt/dune b/src/lwt/dune index 24fbdf22..30ac27a1 100644 --- a/src/lwt/dune +++ b/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)))