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