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

Small optimization.

Browse source
This commit is contained in:
Martin Grabmueller 2012-07-26 23:08:31 +02:00
parent 7182653638
commit 8c18de4e66
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Network/TLS/State.hs
View file

@ -497,13 +497,13 @@ updateHandshake n f = do
addHandshakeMessage :: MonadState TLSState m => Bytes -> m ()
addHandshakeMessage content = updateHandshake "add handshake message" $ \hs ->
hs { hstHandshakeMessages = hstHandshakeMessages hs ++ [content]}
hs { hstHandshakeMessages = content : hstHandshakeMessages hs}
getHandshakeMessages :: MonadState TLSState m => m [Bytes]
getHandshakeMessages = do
st <- get
let hst = fromJust "handshake" $ stHandshake st
return $ hstHandshakeMessages hst
return $ reverse $ hstHandshakeMessages hst
updateHandshakeDigest :: MonadState TLSState m => Bytes -> m ()
updateHandshakeDigest content = updateHandshake "update digest" $ \hs ->