646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
15 lines
810 B
Diff
15 lines
810 B
Diff
diff --git a/src/server/ocsigen_cohttp.ml b/src/server/ocsigen_cohttp.ml
|
|
index 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")
|