yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add a way to update Digest when we have a handshaket type and the content of the header

Browse source
This commit is contained in:
Vincent Hanquez 2010-10-02 10:33:19 +01:00
parent eb3ed06af1
commit 8049ad6c6f
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Network/TLS/State.hs
View file

@ -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