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

add putSignatureHashAlgorithm

Browse source
This commit is contained in:
Vincent Hanquez 2013-12-07 12:07:21 +08:00
parent 887c69b6e5
commit 1ac0cc9485
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
core/Network/TLS/Packet.hs
View file

@ -451,6 +451,10 @@ getSignatureHashAlgorithm = do
h <- fromJust . valToType <$> getWord8
s <- fromJust . valToType <$> getWord8
return (h,s)
putSignatureHashAlgorithm :: HashAndSignatureAlgorithm -> Put
putSignatureHashAlgorithm (h,s) =
putWord8 (valOfType h) >> putWord8 (valOfType s)
{-
- decode and encode ALERT
-}