fixup! CP-48195: Improvements to tracing_export

Signed-off-by: Gabriel Buica <[email protected]>
xapi-project · Apr 19, 2024 · bcc563a · bcc563a
1 parent d7e550b
commit bcc563a
Showing 1 changed file with 1 addition and 12 deletions.
diff --git a/ocaml/libs/tracing/tracing_export.ml b/ocaml/libs/tracing/tracing_export.ml
@@ -232,18 +232,7 @@ module Destination = struct
               ->
                 Error (Failure (Cohttp.Code.string_of_status response.status))
             | `Ok response ->
-                let body = Buffer.create 128 in
-                let reader = Response.make_body_reader response ic in
-                let rec loop () =
-                  match Response.read_body_chunk reader with
-                  | Cohttp.Transfer.Chunk x ->
-                      Buffer.add_string body x ; loop ()
-                  | Cohttp.Transfer.Final_chunk x ->
-                      Buffer.add_string body x
-                  | Cohttp.Transfer.Done ->
-                      ()
-                in
-                loop () ; Ok ()
+                Ok ()
         )
       with e -> Error e
   end