simon/ocaml-opentelemetry
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-opentelemetry.git synced 2026-03-09 20:33:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

better error reporting

Browse source
This commit is contained in:
Simon Cruanes 2022-07-06 19:23:32 -04:00
parent 4c98764432
commit 7eb75d66d6
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/client/opentelemetry_client_ocurl.ml
View file

@ -129,8 +129,11 @@ end = struct
let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in
(try Ok (f dec) (try Ok (f dec)
with e -> with e ->
let bt = Printexc.get_backtrace () in
Error 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 ( ) else (
let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in
let status = Status.decode_status dec in let status = Status.decode_status dec in
@ -146,7 +149,10 @@ end = struct
Error (`Status (code, status)) Error (`Status (code, status))
with with
| Sys.Break -> Error `Sysbreak | 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 end
module type BATCH = sig end module type BATCH = sig end