1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
-- |
-- process handshake message received
module Network.TLS.Handshake.Process (
processHandshake12,
processHandshake13,
startHandshake,
) where
import Control.Concurrent.MVar
import Network.TLS.Context.Internal
import Network.TLS.Handshake.State
import Network.TLS.Handshake.State13
import Network.TLS.IO.Encode
import Network.TLS.Imports
import Network.TLS.Struct
import Network.TLS.Struct13
processHandshake12 :: Context -> Handshake -> IO ()
processHandshake12 ctx hs = do
when (isHRR hs) $ usingHState ctx wrapAsMessageHash13
void $ updateHandshake12 ctx hs
where
isHRR (ServerHello TLS12 srand _ _ _ _) = isHelloRetryRequest srand
isHRR _ = False
processHandshake13 :: Context -> Handshake13 -> IO ()
processHandshake13 ctx = void . updateHandshake13 ctx
-- initialize a new Handshake context (initial handshake or renegotiations)
startHandshake :: Context -> Version -> ClientRandom -> IO ()
startHandshake ctx ver crand =
let hs = Just $ newEmptyHandshake ver crand
in void $ swapMVar (ctxHandshakeState ctx) hs
|
