Commit 9e11985b authored by Vincent Laporte's avatar Vincent Laporte Committed by Vincent Laporte
Browse files

ocamlPackages.ocsigen_server: fix for conduit 7.1.0

parent cc64e7b4
Loading
Loading
Loading
Loading
+14 −0
Original line number Diff line number Diff line
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")
+2 −0
Original line number Diff line number Diff line
@@ -64,6 +64,8 @@ buildDunePackage rec {
    hash = "sha256-T3bgPZpDO6plgebLJDBtBuR2eR/bN3o24UAUv1VwgtI=";
  };

  patches = [ ./conduit.patch ];

  nativeBuildInputs = [
    makeWrapper
    which