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

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