using empty session id for quicMode.

haskell-tls · May 2, 2020 · 404fe51 · 404fe51
1 parent 95b26e2
commit 404fe51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/core/Network/TLS/Handshake/Client.hs b/core/Network/TLS/Handshake/Client.hs
@@ -274,7 +274,7 @@ handshakeClient' cparams ctx groups mparams = do
                               where noSessionEMS = SessionEMS `notElem` sessionFlags sdata
                     -- In compatibility mode a client not offering a pre-TLS 1.3
                     -- session MUST generate a new 32-byte value
-                    if tls13 && paramSession == Session Nothing
+                    if tls13 && paramSession == Session Nothing && not quicMode
                         then do
                             randomSession <- newSession ctx
                             return (crand, randomSession)