From 4be9ce338415f179054e0d4a8c6ec67fed0f6872 Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Wed, 26 Aug 2026 13:14:28 +0100 Subject: [PATCH] more logs in hooks --- src/Simplex/Messaging/Transport/Server.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/Simplex/Messaging/Transport/Server.hs b/src/Simplex/Messaging/Transport/Server.hs index 7539413fa..ca81d77dc 100644 --- a/src/Simplex/Messaging/Transport/Server.hs +++ b/src/Simplex/Messaging/Transport/Server.hs @@ -31,6 +31,7 @@ module Simplex.Messaging.Transport.Server ) where +import Debug.Trace import Control.Applicative ((<|>)) import Control.Logger.Simple import Control.Monad @@ -275,7 +276,15 @@ supportedTLSServerParams serverSupported TLSServerCredential {credential, sniCre logWarn $ "ALPN: client offered " <> tshow protos <> ", server selected " <> tshow proto pure proto ) - <$> alpn_ + <$> alpn_, + T.onCipherChoosing = \v cs -> + traceShow "TLS: server hook onCipherChoosing" $ (T.onCipherChoosing def) v cs, + T.onNewHandshake = \m -> do + logWarn "TLS: server hook onNewHandshake" + (T.onNewHandshake def) m, + T.onEncryptedExtensionsCreating = \es -> do + logWarn "TLS: server hook onEncryptedExtensionsCreating" + (T.onEncryptedExtensionsCreating def) es }, T.serverSupported = serverSupported }