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

print received status when httpclient fails

Browse source
This commit is contained in:
Simon Cruanes 2022-07-06 19:38:36 -04:00
parent 8495d469ee
commit d3b366f04b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/client/opentelemetry_client_ocurl.ml
View file

@ -135,7 +135,9 @@ end = struct
(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 str = Buffer.contents buf_res in
let dec = Pbrt.Decoder.of_string str in
try
let status = Status.decode_status dec in
Error (`Status (code, status))
@ -143,8 +145,12 @@ end = struct
let bt = Printexc.get_backtrace () in
Error
(`Failure
(spf "decoding of status failed with:\n%s\n%s"
(Printexc.to_string e) bt))
(spf
"decoding of status (code=%d) failed with:\n\
%s\n\
status: %S\n\
%s"
code (Printexc.to_string e) str bt))
)
| exception Sys.Break -> Error `Sysbreak
| exception Curl.CurlException (_, code, msg) ->