From 24f5ac5e78321544e2d081a032ec90db8e0b568c Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Wed, 26 Aug 2026 14:38:14 +0100
Subject: [PATCH] log client hooks

---
 src/Simplex/Messaging/Transport/Client.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Simplex/Messaging/Transport/Client.hs b/src/Simplex/Messaging/Transport/Client.hs
index 972e4ad3a..498c81073 100644
--- a/src/Simplex/Messaging/Transport/Client.hs
+++ b/src/Simplex/Messaging/Transport/Client.hs
@@ -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
     }