printing TLS12 resumption

haskell-tls · Feb 8, 2024 · 322be4d · 322be4d
1 parent 0c86262
commit 322be4d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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))