From 617d434126b1607a6e44168bc6eb709ab86600b4 Mon Sep 17 00:00:00 2001
From: Antonio Nuno Monteiro <anmonteiro@gmail.com>
Date: Wed, 30 Jan 2019 17:04:11 +0000
Subject: [PATCH] Don't add an authenticator by default

---
 lwt/tls_io_real.ml | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/lwt/tls_io_real.ml b/lwt/tls_io_real.ml
index 7ad2674f..61b95b5e 100644
--- 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