Don't add an authenticator by default

inhabitedtype · Jan 30, 2019 · 617d434 · 617d434
1 parent 1ac80ea
commit 617d434
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/lwt/tls_io_real.ml b/lwt/tls_io_real.ml
@@ -53,12 +53,8 @@ let make_server ?server ?certfile ?keyfile socket
   let config = match server, certfile, keyfile with
   | Some server, _, _ -> Lwt.return server
   | None, Some cert, Some priv_key ->
-    X509_lwt.private_of_pems ~cert ~priv_key >>= fun certificate ->
-    X509_lwt.authenticator `No_authentication_I'M_STUPID >|= fun authenticator ->
-    Tls.Config.server
-      ~certificates:(`Single certificate)
-      ~authenticator
-      ()
+    X509_lwt.private_of_pems ~cert ~priv_key >|= fun certificate ->
+    Tls.Config.server ~certificates:(`Single certificate) ()
   | _ ->
     Lwt.fail (Invalid_argument "Certfile and Keyfile required when server isn't provided")
   in