fail earlier

inhabitedtype · Apr 19, 2019 · 31428cc · 31428cc
1 parent 4738cd5
commit 31428cc
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 10 deletions.
diff --git a/lwt/httpaf_lwt.ml b/lwt/httpaf_lwt.ml
@@ -138,14 +138,15 @@ module Server = struct
       ?(config=Config.default)
       ~request_handler
       ~error_handler =
+      let make_tls_server = Tls_io.make_server ?server ?certfile ?keyfile in
       fun client_addr socket ->
         let connection =
           Server_connection.create
             ~config
             ~error_handler:(error_handler client_addr)
             (request_handler client_addr)
         in
-        Tls_io.make_server ?server ?certfile ?keyfile socket >>= fun tls_server ->
+        make_tls_server socket >>= fun tls_server ->
         let readf = Tls_io.readf tls_server in
         let writev = Tls_io.writev tls_server in
         start_read_write_loops ~config ~readf ~writev ~socket connection
@@ -160,14 +161,15 @@ module Server = struct
       ?(config=Config.default)
       ~request_handler
       ~error_handler =
+      let make_ssl_server = Ssl_io.make_server ?server ?certfile ?keyfile in
       fun client_addr socket ->
         let connection =
           Server_connection.create
             ~config
             ~error_handler:(error_handler client_addr)
             (request_handler client_addr)
         in
-        Ssl_io.make_server ?server ?certfile ?keyfile socket >>= fun tls_server ->
+        make_ssl_server socket >>= fun tls_server ->
         let readf = Ssl_io.readf tls_server in
         let writev = Ssl_io.writev tls_server in
         start_read_write_loops ~config ~readf ~writev ~socket connection

diff --git a/lwt/ssl_io_dummy.ml b/lwt/ssl_io_dummy.ml
@@ -9,8 +9,10 @@ let writev _socket _fd =
 type client = [ `Ssl_not_available  ]
 type server = [ `Ssl_not_available  ]
 
-let make_client ?client:_ _socket =
-  Lwt.fail_with "Ssl not available"
+let[@ocaml.warning "-21"] make_client ?client:_ =
+  failwith "Ssl not available";
+  fun _socket -> Lwt.fail_with "Ssl not available"
 
-let make_server ?server:_ ?certfile:_ ?keyfile:_ _socket =
-  Lwt.fail_with "Ssl not available"
+let[@ocaml.warning "-21"] make_server ?server:_ ?certfile:_ ?keyfile:_ =
+  failwith "Ssl not available";
+  fun _socket -> Lwt.fail_with "Ssl not available"
diff --git a/lwt/tls_io_dummy.ml b/lwt/tls_io_dummy.ml
@@ -9,8 +9,10 @@ let writev _tls _fd =
 type client = [ `Tls_not_available ]
 type server = [ `Tls_not_available ]
 
-let make_client ?client:_ _socket =
-  Lwt.fail_with "Tls not available"
+let[@ocaml.warning "-21"] make_client ?client:_ =
+  failwith "TLS not available";
+  fun _socket -> Lwt.return `Tls_not_available
 
-let make_server ?server:_ ?certfile:_ ?keyfile:_ _socket =
-  Lwt.fail_with "Tls not available"
+let[@ocaml.warning "-21"] make_server ?server:_ ?certfile:_ ?keyfile:_ =
+  failwith "TLS not available";
+  fun _socket -> Lwt.fail_with "TLS not available"