Update src/conduit-lwt-unix/conduit_lwt_unix.ml

Co-authored-by: Antonin Décimo <[email protected]>
mirage · Sep 19, 2024 · 5025964 · 5025964
1 parent f5facd8
commit 5025964
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/conduit-lwt-unix/conduit_lwt_unix.ml b/src/conduit-lwt-unix/conduit_lwt_unix.ml
@@ -276,11 +276,12 @@ let certificates ~ctx =
 let domain_name hostname =
   try Domain_name.(host_exn (of_string_exn hostname))
   with Invalid_argument msg ->
-    let s =
+    let trace = Printexc.get_raw_backtrace () in
+    let msg =
       Printf.sprintf "couldn't convert %s to a [`host] Domain_name.t: %s"
         hostname msg
     in
-    invalid_arg s
+    Printexc.raise_with_backtrace (Invalid_argument msg) trace
 
 let connect_with_tls_native ~ctx (`Hostname hostname, `IP ip, `Port port) =
   let sa = Unix.ADDR_INET (Ipaddr_unix.to_inet_addr ip, port) in