From 3d16de634f5244e33222f9d89616b154a09d6a61 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 20 Dec 2023 14:26:07 -0500
Subject: [PATCH] refine seld tracing

---
 src/client-ocurl/opentelemetry_client_ocurl.ml | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/client-ocurl/opentelemetry_client_ocurl.ml b/src/client-ocurl/opentelemetry_client_ocurl.ml
index 47466f23..70a8fa22 100644
--- a/src/client-ocurl/opentelemetry_client_ocurl.ml
+++ b/src/client-ocurl/opentelemetry_client_ocurl.ml
@@ -147,11 +147,18 @@ end = struct
       ("Content-Type", "application/x-protobuf") :: config.headers
     in
     match
+      let@ _sc =
+        Trace'.with_ ~kind:Span.Span_kind_internal "curl.post"
+          ~attrs:[ "sz", `Int (String.length data) ]
+      in
       Ezcurl.post ~headers ~client ~params:[] ~url ~content:(`String data) ()
     with
     | Ok { code; _ } when code >= 200 && code < 300 -> ()
     | Ok { code; body; headers = _; info = _ } ->
       Atomic.incr n_errors;
+      Trace'.add_event _sc (fun () ->
+          Opentelemetry.Event.make "error" ~attrs:[ "code", `Int code ]);
+
       if !debug_ || config.debug then (
         let dec = Pbrt.Decoder.of_string body in
         let body =