http-lib: add backtrace to logs on connection without response

Signed-off-by: Pau Ruiz Safont <pau.ruizsafont@cloud.com>
xapi-project · Oct 1, 2024 · eb8d973 · eb8d973
1 parent e90a98e
commit eb8d973
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ocaml/libs/http-lib/http_client.ml b/ocaml/libs/http-lib/http_client.ml
@@ -188,6 +188,9 @@ let response_of_fd ?(use_fastpath = false) fd =
   | Unix.Unix_error (_, _, _) as e ->
       raise e
   | e ->
+      Backtrace.is_important e ;
+      let bt = Backtrace.get e in
+      Debug.log_backtrace e bt ;
       D.debug "%s: returning no response because of the exception: %s"
         __FUNCTION__ (Printexc.to_string e) ;
       None