From 7eb75d66d66b2e8b256d4313d1cfe8f8e154d4e2 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 6 Jul 2022 19:23:32 -0400 Subject: [PATCH] better error reporting --- src/client/opentelemetry_client_ocurl.ml | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/client/opentelemetry_client_ocurl.ml b/src/client/opentelemetry_client_ocurl.ml index 3979a317..3117db24 100644 --- a/src/client/opentelemetry_client_ocurl.ml +++ b/src/client/opentelemetry_client_ocurl.ml @@ -129,8 +129,11 @@ end = struct let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in (try Ok (f dec) with e -> + let bt = Printexc.get_backtrace () in Error - (`Failure ("decoding failed with:\n" ^ Printexc.to_string e))) + (`Failure + (spf "decoding failed with:\n%s\n%s" (Printexc.to_string e) + bt))) ) else ( let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in let status = Status.decode_status dec in @@ -146,7 +149,10 @@ end = struct Error (`Status (code, status)) with | Sys.Break -> Error `Sysbreak - | e -> Error (`Failure (Printexc.to_string e)) + | e -> + let bt = Printexc.get_backtrace () in + Error + (`Failure (spf "httpc: failed with:\n%s\n%s" (Printexc.to_string e) bt)) end module type BATCH = sig end