From 6cf04fc4f3cfa93a7f7072925f805e3e34161cc7 Mon Sep 17 00:00:00 2001 From: Hannes Mehnert Date: Fri, 8 Oct 2021 15:59:34 +0200 Subject: [PATCH] make the X509.default_authenticator a lazy X509.authenticator this fixes compilation without the tls library (improving #395 @CraigFE) --- src/conduit-lwt-unix/conduit_lwt_tls.dummy.ml | 2 +- src/conduit-lwt-unix/conduit_lwt_tls.dummy.mli | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/conduit-lwt-unix/conduit_lwt_tls.dummy.ml b/src/conduit-lwt-unix/conduit_lwt_tls.dummy.ml index a20e6905..aca0f478 100644 --- a/src/conduit-lwt-unix/conduit_lwt_tls.dummy.ml +++ b/src/conduit-lwt-unix/conduit_lwt_tls.dummy.ml @@ -3,7 +3,7 @@ module X509 = struct type authenticator = unit - let default_authenticator = () + let default_authenticator = lazy () end module Client = struct diff --git a/src/conduit-lwt-unix/conduit_lwt_tls.dummy.mli b/src/conduit-lwt-unix/conduit_lwt_tls.dummy.mli index bed1b289..27a3e4d0 100644 --- a/src/conduit-lwt-unix/conduit_lwt_tls.dummy.mli +++ b/src/conduit-lwt-unix/conduit_lwt_tls.dummy.mli @@ -22,7 +22,7 @@ module X509 : sig type authenticator = unit - val default_authenticator : authenticator + val default_authenticator : authenticator Lazy.t end module Client : sig