Something went wrong. Try again.
What happens if I push all of nixpkgs
Something went wrong. Try again.
810 B · 14 lines
123456789101112131415diff --git a/src/server/ocsigen_cohttp.ml b/src/server/ocsigen_cohttp.mlindex 66895339..edbfcbf2 100644--- a/src/server/ocsigen_cohttp.ml+++ b/src/server/ocsigen_cohttp.ml@@ -105,7 +105,8 @@ let handler ~ssl ~address ~port ~connector (flow, conn) request body = let rec getsockname = function | `TCP (ip, port) -> Unix.ADDR_INET (Ipaddr_unix.to_inet_addr ip, port) | `Unix_domain_socket path -> Unix.ADDR_UNIX path- | `TLS (_, edn) -> getsockname edn+ | `TLS (_, edn) -> getsockname (edn :> Conduit_lwt_unix.endp)+ | `TLS_tunnel _ -> raise (Failure "TLS tunnel not supported") | `Unknown err -> raise (Failure ("resolution failed: " ^ err)) | `Vchan_direct _ -> raise (Failure "VChan not supported") | `Vchan_domain_socket _ -> raise (Failure "VChan not supported")