add a way to update Digest when we have a handshaket type and the content of the header
This commit is contained in:
parent
eb3ed06af1
commit
8049ad6c6f
1 changed files with 6 additions and 0 deletions
|
@ -33,6 +33,7 @@ module Network.TLS.State
|
|||
, isClientContext
|
||||
, startHandshakeClient
|
||||
, updateHandshakeDigest
|
||||
, updateHandshakeDigestSplitted
|
||||
, getHandshakeDigest
|
||||
, endHandshake
|
||||
) where
|
||||
|
@ -282,6 +283,11 @@ updateHandshakeDigest content = updateHandshake "update digest" (\hs ->
|
|||
hs { hstHandshakeDigest = Just (nc1, nc2) }
|
||||
)
|
||||
|
||||
updateHandshakeDigestSplitted :: MonadTLSState m => HandshakeType -> Bytes -> m ()
|
||||
updateHandshakeDigestSplitted ty bytes = updateHandshakeDigest $ B.concat [hdr, bytes]
|
||||
where
|
||||
hdr = runPut $ encodeHandshakeHeader ty (B.length bytes)
|
||||
|
||||
getHandshakeDigest :: MonadTLSState m => Bool -> m Bytes
|
||||
getHandshakeDigest client = do
|
||||
st <- getTLSState
|
||||
|
|
Loading…
Reference in a new issue