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

debug

Browse source
This commit is contained in:
Simon Cruanes 2022-03-17 14:03:55 -04:00
parent 68b2952b76
commit 4bed351df4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/client/opentelemetry_client_ocurl.ml
View file

@ -10,6 +10,8 @@ open Opentelemetry
let[@inline] (let@) f x = f x
let debug_ = ref (try bool_of_string @@ Sys.getenv "DEBUG" with _ -> false)
let default_url = "http://localhost:4318"
let url = ref (try Sys.getenv "OTEL_EXPORTER_OTLP_ENDPOINT" with _ -> default_url)
let get_url () = !url
@ -67,10 +69,10 @@ module Backend() : Opentelemetry.Collector.BACKEND = struct
begin
let i = ref 0 in
(fun n ->
Printf.eprintf "curl asks for %d bytes\n%!" n;
if !debug_ then Printf.eprintf "curl asks for %d bytes\n%!" n;
let len = min n (String.length bod - !i) in
let s = String.sub bod !i len in
Printf.eprintf "gave curl %d bytes\n%!" len;
if !debug_ then Printf.eprintf "gave curl %d bytes\n%!" len;
i := !i + len;
s)
end;
@ -82,8 +84,7 @@ module Backend() : Opentelemetry.Collector.BACKEND = struct
match Curl.perform curl with
| () ->
let code = Curl.get_responsecode curl in
(* TODO: check content-encoding header *)
Printf.eprintf "result body: %S\n%!" (Buffer.contents buf_res);
if !debug_ then Printf.eprintf "result body: %S\n%!" (Buffer.contents buf_res);
let dec = Pbrt.Decoder.of_string (Buffer.contents buf_res) in
if code >= 200 && code < 300 then (
let res = decode dec in
@ -107,7 +108,7 @@ module Backend() : Opentelemetry.Collector.BACKEND = struct
let send_trace (tr:Trace_service.export_trace_service_request) : unit =
let@() = with_lock_ in
Format.eprintf "send trace %a@." Trace_service.pp_export_trace_service_request tr;
if !debug_ then Format.eprintf "send trace %a@." Trace_service.pp_export_trace_service_request tr;
Pbrt.Encoder.reset encoder;
Trace_service.encode_export_trace_service_request tr encoder;
match
@ -119,6 +120,7 @@ module Backend() : Opentelemetry.Collector.BACKEND = struct
let send_metrics (m:Metrics_service.export_metrics_service_request) : unit =
let@() = with_lock_ in
if !debug_ then Format.eprintf "send metrics %a@." Metrics_service.pp_export_metrics_service_request m;
Pbrt.Encoder.reset encoder;
Metrics_service.encode_export_metrics_service_request m encoder;
match