From 322be4deed163da9dc1ed1f251c679f54e07798e Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Thu, 8 Feb 2024 09:20:57 +0900 Subject: [PATCH] printing TLS12 resumption --- debug/src/Common.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/debug/src/Common.hs b/debug/src/Common.hs index cf2fefb8f..665a2b4c0 100644 --- a/debug/src/Common.hs +++ b/debug/src/Common.hs @@ -131,8 +131,9 @@ printHandshakeInfo ctx = do putStrLn ("cipher: " ++ show (infoCipher i)) putStrLn ("compression: " ++ show (infoCompression i)) putStrLn ("group: " ++ maybe "(none)" show (infoSupportedGroup i)) - when (infoVersion i < TLS13) $ + when (infoVersion i < TLS13) $ do putStrLn ("extended master secret: " ++ show (infoExtendedMainSecret i)) + putStrLn ("resumption: " ++ show (infoTLS12Resumption i)) when (infoVersion i == TLS13) $ do putStrLn ("handshake emode: " ++ show (fromJust (infoTLS13HandshakeMode i))) putStrLn ("early data accepted: " ++ show (infoIsEarlyDataAccepted i))