diff options
Diffstat (limited to 'portal/tcp')
| -rw-r--r-- | portal/tcp/portal.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index 0105a06..d36563a 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -174,6 +174,10 @@ let starttls (portal : t) : unit Lwt.t = | Tls _ -> Lwt.fail_with "TLS is already enabled on this socket!" in portal._socket <- Tls tls_sock +let _encrypted = function + | Plain _ -> false + | Tls _ -> true + let header ?from domain (portal : t) = let stanza = let attributes = |