log client hooks

This commit is contained in:
Evgeny Poberezkin
2026-08-26 14:38:14 +01:00
parent 4be9ce3384
commit 24f5ac5e78
+4 -1
View File
@@ -296,7 +296,10 @@ mkTLSClientParams supported caStore_ host port cafp_ clientCreds_ clientCredsSen
def
{ T.onServerCertificate = onServerCert,
T.onCertificateRequest = onCertRequest,
T.onSuggestALPN = alpn_ <$ logWarn ("ALPN: client offering " <> tshow alpn_)
T.onSuggestALPN = alpn_ <$ logWarn ("ALPN: client offering " <> tshow alpn_),
T.onCustomFFDHEGroup = \dh pub -> do
logWarn "TLS client hook onCustomFFDHEGroup"
(T.onCustomFFDHEGroup def) dh pub
},
T.clientSupported = supported
}