X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/314ce7bdcb5f54a7d1763e8b6d405dc66cb65d2b..06bd821502f57dcb4ef89295b221fc2b9a4f1ae3:/src/openssl.sml

diff --git a/src/openssl.sml b/src/openssl.sml
index aad3925..26001cc 100644
--- a/src/openssl.sml
+++ b/src/openssl.sml
@@ -266,9 +266,15 @@ fun context printErr (chain, key, root) =
 	    context
     end
 
-fun connect (context, hostname) =
+fun connect printErr (context, hostname) =
     let
 	val bio = F_OpenSSL_SML_new_ssl_connect.f' context
+
+	val ssl_err =
+	    if printErr then
+		ssl_err
+	    else
+		(fn _ => ())
     in
 	if C.Ptr.isNull' bio then
 	    (ssl_err ("Error initializating connection to " ^ hostname);