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

Author: psafont

ocaml/libs/http-lib/http_client.ml

@@ -177,6 +177,11 @@ let response_of_fd_exn fd =
        (Astring.String.cuts ~sep:"\n" buf)
     )
 
+(* Use a different logging brand, the one used by {D} is ignore in the default
+   configuration. This allows to have visibility of an issue that interrupts
+   storage migrations. *)
+module L = Debug.Make (struct let name = __MODULE__ end)
+
 (** [response_of_fd fd] returns an optional Http.Response.t record *)
 let response_of_fd ?(use_fastpath = false) fd =
   try
@@ -191,7 +196,7 @@ let response_of_fd ?(use_fastpath = false) fd =
       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"
+      L.debug "%s: returning no response because of the exception: %s"
         __FUNCTION__ (Printexc.to_string e) ;
       None